Приложение, позволяющее создавать список абонентов телефонного узла

type
    PMyList = ^АList;
    AList = record
LastName: string[25];
Name: string[25];
patronymic: string[25];
Street: string[40];
House: integer;
Flat: integer;
Phone: string[8];
end;
 
 
MyList: TList; 
ARecord: PMyList; 
Yk: Integer; 
 
 
procedure TMainF.FormCreate(Sender: TObject); 
begin
MyList := TList.Create; 
Yk:=-l;
end;
 
procedure TMainF.FormDestroy(Sender: TObject);
 begin
MyList.Free;
end;

procedure TMainF.AddBtnClick(Sender: TObject);
begin
New (ARecord);
with Аrесоrd^ do
begin
LastName:=LastNameEdt.Text;
Name:=NameEdt.Text;
Patronymic:= PatronymicEdt.Text; 
Street:=StreetEdt.Text;
House:=HouseSE.Value;
Flat:=FlatSE.Value;
    Phone:= PhoneME.Text;
end;
MyList. Add (ARecord);  
    inc (yk) ;  
StatusBarl.Panels[l].Text:=IntToStr(MyList.Count);  
StatusBarl.Panels[3] .Text:=IntToStr(yk+l);

var
MyList: TList;