Нужно заполнить стринггрид случайными числами,заетм выбрать строку и из этой строки нужно найти макс или мин значение

uses ..., Math;
...
... StringGrid1.Rows[RandomRange(StringGrid1.FixedRows, StringGrid1.RowCount)]

procedure TForm1.Edit1Change(Sender: TObject);
var a:String;
    j,i,n,vmax:integer;
begin
    a:=edit1.Text;
    n:=strtoint(a);
    if n=1 then
    begin
    vmax:=strtoint(Stringgrid1.Cells[n,0]);
         for j:=0 to stringgrid1.RowCount-1 do
         begin
 
        if strtoint(Stringgrid1.Cells[n,j])>vmax then
        vmax:=strtoint(Stringgrid1.Cells[i,j]);
        end;
    end;
    showmessage(inttostr(vmax));
end;

var
   j,i,n,vmax:integer;
begin
    n:=strtoint(Edit1.Text);
    vmax := StringGrid1.Cells[0,n].ToInteger;
    case Radiogroup1.ItemIndex of
         0: begin
            for i := 1 to StringGrid1.ColCount-1 do
            if vmax < StringGrid1.Cells[i,n].ToInteger then
            vmax := StringGrid1.Cells[i,n].ToInteger;
         end;
         1: begin
            for i := 1 to StringGrid1.ColCount-1 do
            if vmax > StringGrid1.Cells[i,n].ToInteger then
            vmax := StringGrid1.Cells[i,n].ToInteger;
         end;
    end;
    Edit2.Text := vmax.ToString;
end;

n:=strtoint(Edit1.Text);

n := Edit1.Text.ToInteger;

if not TryStrToInt(Edit1.Text, n) then exit;

procedure TForm1.Edit1Change(Sender: TObject);
var
  n: integer;
begin
  if TryStrToInt(Edit1.Text, n) then
  begin
    Edit1.Color := clWindow;
    ///
 
  end
  else
    Edit1.Color := clRed;
end;