StringGrid: выделить зеленой рамкой строку с наибольшим элементом

procedure TForm1.zapolnenie();
var
k: integer;
i, j: byte;
 
begin
for i:=0 to StringGrid1.RowCount-1 do
  StringGrid1.Cells[StringGrid1.ColCount-1,i]:='';
 
for i:=0 to StringGrid1.RowCount-1 do
  for j:=0 to StringGrid1.ColCount-2 do
    StringGrid1.Cells[j,i]:=IntToStr(Random(200)-100);
 
k:=0;
for i:=0 to StringGrid1.Rowcount-1 do begin
  k:=StrToInt(StringGrid1.Cells[0,i]);
 
    for j:=0 to StringGrid1.ColCount-2 do
      if k < StrToInt(StringGrid1.Cells[j,i]) then
        k:=StrToInt(StringGrid1.Cells[j,i]);
    StringGrid1.Cells[StringGrid1.ColCount-1,i]:=IntToStr(k);
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  zapolnenie();
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
  close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
  for i:=1 to 11 do begin
    ListBox1.Items.Add(inttostr(i));
  end;
end;
 
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  StringGrid1.ColCount:=strtoint(ListBox1.Items[listbox1.ItemIndex]);
  zapolnenie();
end;
 
procedure TForm1.N11Click(Sender: TObject);
begin
  StringGrid1.RowCount:=1;
  zapolnenie();
end;
 
procedure TForm1.N21Click(Sender: TObject);
begin
  StringGrid1.RowCount:=2;
  zapolnenie();
end;
 
procedure TForm1.N31Click(Sender: TObject);
begin
  StringGrid1.RowCount:=3;
  zapolnenie();
end;
 
procedure TForm1.N41Click(Sender: TObject);
begin
  StringGrid1.RowCount:=4;
  zapolnenie();
end;
 
procedure TForm1.N51Click(Sender: TObject);
begin
  StringGrid1.RowCount:=5;
  zapolnenie();
end;
 
procedure TForm1.N61Click(Sender: TObject);
begin
  StringGrid1.RowCount:=6;
  zapolnenie();
end;
 
procedure TForm1.StringGrid1DbClick(Sender: TObject);
begin
zapolnenie();
end;

procedure TForm1.StringGrid1DrawCell(Sender:TObject; ...);
begin
    if ARow=[i]Номер_строки_с_наибольшим_элементом[/i] then 
          StringGrid1.Canvas.Pen.Color := clRed
    else StringGrid1.Canvas.Pen.Color := clBlack;
    StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid1.Cell[ACol,ARow]);
end;