[lmikle]

Циклом. Точнее 2мя.

Код:

For I := 0 To StringGrid1.Cols-1 Do
Begin
  AMax := 0;
  For J := 0 To StringGrid1.Rows-1 Do
    If AMax < StrTofloat(StringGrid1.Cell[I,J]) Then
      AMax := StrTofloat(StringGrid1.Cell[I,J]);
  StringGrid2.Cell[I,0] := Floattostr(AMax);
End;