Расчёт максимального значение с данными из StringGrid

[Vendetta]

Вопрос вот в чём, нажимаем на расчёт максимального значение....прога запрашивает диапазо ячеей по начальным и конечным координатам ячеек, и из всех значей надо выбрать максимально:
procedure TForm6.Button1Click(Sender: TObject);
var k1, k2, k3, k4, i, j, s, t: integer;
begin
t:=0;
k1:=strtoint(txt1.Text);
k2:=strtoint(txt2.Text);
k3:=strtoint(txt3.Text);
k4:=strtoint(txt4.Text);
s:=strtoint(Form1.SG1.Cells[i,j]);
for i := k1 to k3 do begin
for j := k2 to k4 do begin
if s>s+1 then t:=s;
end;
end;
Form1.txt1.text:=inttostr(t);
Form1.show;
close;
end;

end.
подскажите где ошибка...почему работает криво

[Скандербег]

...
for i := k1 to k3 do begin
  for j := k2 to k4 do begin
    s := strtoint(Form1.SG1.Cells[i, j]);
    if t < s then t := s;
  end;
end;
...

[Vendetta]

Спасибо.......