Jak znaleźć wartość maksymalną w stringgridzie?

Czy ktoś może wie jak najprościej wyszukać w stringgridzie największą wartość i wstawić ją do edita??

sprawdzić wszystkie po kolei?

:) dobre.... :-) ale jak to zrobić??

with StringGrid do
begin
  MaxValue := Cells[0, 0];
  for I := 0 to RowCount - 1 do
  begin
    for J := 0 to ColCount - 1 do
    begin
      if Cells[J, I] > MaxValue then
        MaxValue := Cells[J, I];
    end;
  end;
end;

Nie kompilowałem, ale myślę, że jest ok.
Indeksy początkowe w zależności od fixed rows/cols.

pzdr.