[Delphi] rekordy i tablice

czesc!!!
niech ktos pomoze mi zmodyfikowac tak kod aby po wpisaniu danych do tablicy , wyjsciu z programu(zapisuje sie rekord) i po ponownym jego uruchomieniu i zaladowaniu rekordu "PLYTY" mozna bylo jeszcze wpisywac dane do tablicy a potem po klikniecju na liste wyswietlenie tych informacji w edit5-7.oto kod
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Lista1: TListBox;
dodaj: TBitBtn;
Edit5: TEdit;
Label5: TLabel;
Edit6: TEdit;
Label6: TLabel;
Label7: TLabel;
Edit7: TEdit;
comboilo: TComboBox;
combokate: TComboBox;
Combopozy: TComboBox;
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure dodajClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Lista1Click(Sender: TObject);
procedure otworz(s:string);
procedure zapisz;
procedure dodaj1;
procedure dodaj2;
rocedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private

   { Private declarations }

public

{ Public declarations }

end;
const
max_rekord=500;
type
plyty=record
tytul:string[30] ;
kategoria:string[20] ;
ilosc:string[5] ;
pozycja:string[25] ;
end;
tablica1=array[1..max_rekord] of plyty;

 var

Form1: TForm1;
l,m:integer;
plik: file of plyty;
ilosc:integer;

tablica:tablica1;

implementation

{$R *.dfm}

procedure tform1.dodaj1;

begin
inc(l);
with tablica[l] do
begin
tytul:=edit1.text;
kategoria:=combokate.Text;
ilosc:=comboilo.Text;
pozycja:=combopozy.text;
lista1.Items.Add(tablica[l].tytul);
end ;
end;

procedure tform1.dodaj2;
var
l:integer;
begin
for l:=0 to ilosc do lista1.Items.add(tablica[l].tytul);
end;

procedure TForm1.dodajClick(Sender: TObject);
begin
dodaj1;

end;

procedure tform1.zapisz;
var
q:integer;
begin
assignfile(plik, 'dane.a');
rewrite(plik);
for q:=1 to lista1.Count do write(plik,tablica[q]);
closefile(plik);
end;

procedure tform1.otworz(s:string);
var
q:integer;
begin
assignfile(plik, s);
if not fileexists(s) then rewrite(plik);
reset(plik);
ilosc:=filesize(plik);
for q:=1 to ilosc do read(plik,tablica[q]);
closefile(plik); dodaj2;

  end;

      

procedure TForm1.FormCreate(Sender: TObject);
begin
otworz('dane.a');

end;

procedure TForm1.Lista1Click(Sender: TObject);
var
w:integer;
begin

w:=lista1.ItemIndex;
if w>0 then
edit5.text:=tablica[w+1].kategoria;
edit6.text:=tablica[w+1].ilosc;
edit7.text:=tablica[w+1].pozycja;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
rewrite(plik);otworz('dane.a');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
zapisz;
end;

end.

za wszystkie pomysly i wnioski z gory dziekuje!!!!!!!!!!