СРОЧНО!! ПОМОГИТЕ ПОЖАЛУЙСТА 
Нужно найти максимальный элемент главной диагонали матрицы (делфи).
Делаю вот так, но ничего не получается
procedure TForm1.Button2Click(Sender: TObject);
var i,max,j:byte;
begin
max:=strtoint(stringgrid1.Cells[1,1]);
for i:=1 to n do
if strtoint(stringgrid1.cells[i,i])>max then
max:=strtoint(stringgrid1.Cells[i,i]);
label2.caption:=floattostr(max);
end;

1

2

3

4

5

6

7

8

9

procedure TForm1.Button3Click(Sender: TObject);  //поиск максимального элемента

...

begin

...

 Max:= StrToFloat(strngrd1.Cells[0,0]);//присвоим значение 1 элемента

 for i:=0 to strngrd1.ColCount - 1 do //цикл по столбцам

   for j:=0 to strngrd1.RowCount - 1 do //цикл по строкам

...

end;