[_Baga_]

Код:

unit PWeigth;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, XPMan;

type
  TRepp = record
    FID: String[10];
    PSurname: String[30];
    PName: String[30];
    PPatronymic: String[30];
    Weight: Double;
    Deqt: String[50];
    FDate: TDateTime;
  end;
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Button1: TButton;
    BitBtn1: TBitBtn;
    XPManifest1: TXPManifest;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  n_file = 'C:\Program Files\Borland\Delphi7\Projects\RecPasFile.dat';

var
  Form1: TForm1;
  F: File Of TRepp;
  RD: Array[0..249] of TRepp;
  PCount,j,i: integer;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  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.