unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Spin, Grids;    type
  TForm1 = class(TForm)
    SG: TStringGrid;
    Matric: TSpinEdit;
    RandomBtn: TBitBtn;
    procedure RandomBtnClick(Sender: TObject);
    procedure MatricChange(Sender: TObject);
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.RandomBtnClick(Sender: TObject);
var
  i,j,k : integer;
  SL : TStrings;
begin
  i := Matric.Value * Matric.Value - 1;
  SL := TStringList.Create;
  try
    for j := 0 to i do
      SL.Add(IntToStr(j + 1));
    for j := 0 to Matric.Value - 1 do
      for k := 0 to  Matric.Value - 1 do
      begin
        i := Random(SL.Count);
        SG.Cells[j,k] := SL[i];
        SL.Delete(i);
      end;
  finally
    SL.Free;
  end;
end;    procedure TForm1.MatricChange(Sender: TObject);
begin
  SG.RowCount := Matric.Value;
  SG.ColCount := Matric.Value;
end;    end.