[lmikle]

Ну, мужик!
Ругается то на I!!!
Добавление выделено жирным.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var I :Integer;
  begin
    AssignFile(F, n_file);
    Reset(F);
    Seek(F,FileSize(F));
    RD[j].FID := Edit1.Text;
    RD[j].PSurname := Edit2.Text;
    RD[j].PName := Edit3.Text;
    RD[j].PPatronymic := Edit4.Text;
    RD[j].Weight := StrToFloat(Edit5.Text);
    RD[j].Deqt := Edit6.Text;;
    RD[j].FDate := StrToDate(Edit7.Text);
    Write(F, RD[j]);
    CloseFile(F);
    j:=j + 1;
    PCount:=j;
    For I:=0 to Self.ComponentCount-1 do       ! Здесь выдает ошибку
      If Self.Components[i] Is TEdit then
        (Self.Components[i] As TEdit).Text:=’’;
  end;
end.