[robin39]

Огромное спасибо.
Тока я немного подправил, может кому еще пригодиться.

Код:

var
  i,max,j: integer;
begin

   For I := 0 To StringGrid1.ColCount-1 Do
Begin
  Max := 0;
  For J := 0 To StringGrid1.RowCount-1 Do
    If Max < StrTofloat(StringGrid1.Cells[I,J])
    Then
      Max := StrToint(StringGrid1.Cells[I,J]);
  StringGrid2.Cells[I,0] := Floattostr(Max);
End;
end;
end.