[M.A.D.M.A.N.]

Код:

var x,y:integer;
  temp,max:integer;
begin
  temp:=0;
  max:=0;
  for y:=1 to stringgrid1.rowcount do
    for x:=1 to stringgrid1.colcount do
      begin
        temp:= strtoint(stringgrid1.cells[y,x]{если я не путаю расстановку});
        if temp>max then
          max:=temp;
      end;
end;

Ну а Max-это максимальное значение которое тебе надо.