Ошибка!!!

[Ann_Sh]

Ребят, спасибо огромное!!! Вот этот код, написанный Риндерой, получился:

procedure TForm1.Button1Click(Sender: TObject);
var
stars, i, j:integer;
begin
if StringGrid1.ColCount=StringGrid1.Ro wCount then
begin
stars:=0;
for i:=0 to 4 do
for j:=0 to 4 do
if ((i=j)) and (StringGrid1.Cells[i,j]='*') then inc(stars);
Label1.Caption:='Количество звездочек на главной диагонали равно '+IntToStr(stars);
end;
end;