[Fanil]

Подскажите пожалуйста, где поправить код. Постоянно выходит ошибка в конце

Код:

[Error] Unit1.pas(405): '.' expected but 'END' found

А код такой:

Код:

procedure TForm1.Button1Click(Sender: TObject);
 var  Pnom:Real;
begin
Pnom:=StrToFloat(Edit3.Text);
 if Table1.Filter = ''
then Table1.Filter := 'Pnom >= ' + Edit3.Text
else Table1.Filter := Table1.Filter + ' and Pnom >= ' + Edit3.Text;
Table1.Filtered := True;

end;
 var Pnom:Real; i,j:integer;
begin
  for i:=0 to 8 do for j:=1 to 100 do Form1.StringGrid1.Cells[i,j]:='';
  Form1.Table1.First; {ïåðåõîä íà ïåðâóþ çàïèñü áàçû äàííûõ}
  j:=1;
  for i:=1 to Form1.Table1.RecordCount do {öèêë äî êîíöà áàçû}
   begin
     Pnom:=0;
      Form1.StringGrid1.Cells[0,j]:=Form1.Table1.FieldValues['Tiporazmer'];
      Form1.StringGrid1.Cells[1,j]:=Form1.Table1.FieldValues['Pnom'];
     Form1.StringGrid1.Cells[2,j]:=FloatToStrF(Form1.Table1.FieldValues['Inom'],ffFixed,4,1);
      Form1.StringGrid1.Cells[3,j]:=FloatToStrF(Form1.Table1.FieldValues['KPD'],ffFixed,5,1);
      Form1.StringGrid1.Cells[4,j]:=FloatToStrF(Form1.Table1.FieldValues['cos f'],ffFixed,4,1);
      Form1.StringGrid1.Cells[5,j]:=FloatToStrF(Form1.Table1.FieldValues['Ip/In'],ffFixed,4,1);
      Form1.StringGrid1.Cells[6,j]:=FloatToStrF(Form1.Table1.FieldValues['Mp/Mn'],ffFixed,4,1);
      Form1.StringGrid1.Cells[7,j]:=FloatToStrF(Form1.Table1.FieldValues['Mmax/Mn'],ffFixed,4,1);
      Form1.StringGrid1.Cells[8,j]:=FloatToStrF(Form1.Table1.FieldValues['N'],ffFixed,4,1);
      j:=j+1;
        Form1.Table1.Next;
   end;
end
end.

Если перед предпоследним эндом поставить точку с запятой-то Делфи просит убрать его.
Заранее спасибо!