Tekst z TEdit jak wysłać do tablicy

Witam
Jestem początkujący w Delphi i mam pewien problem mianowicie mam część kodu :

procedure TForm3.Button1Click(Sender: TObject); //button zapisz
begin

end;

procedure TForm3.Edit1Change(Sender: TObject); //tytul
begin
Edit1.Text:=string;
end;

procedure TForm3.Edit2Change(Sender: TObject); //rezyser
begin
Edit2.Text:=string;
end;

procedure TForm3.Edit3Change(Sender: TObject); //gatunek
begin
Edit3.Text:=string;
end;

procedure TForm3.Edit4Change(Sender: TObject); //aktor
begin
Edit4.Text:=string;
end;

I teraz aby po kliknięciu butona zapisz tekst z czterech TEdit został wysłany do tablicy

var
Tablica: array[1..4] of string;

procedure TForm3.Button1Click(Sender: TObject);  //button zapisz
begin
Tablica[1]:=  Edit1.Text;
Tablica[2]:=  Edit2.Text;
Tablica[3]:=  // itd.
Tablica[4]:=   // itd.
end;

Nie do końca o to chodziło, w pierwszym indexie tablicy chcę zrobić aby tam umieścić zmienną która by przechowywała takie pola jak: tytuł, gatunek, aktor, rezyser i np według rezysera wyszukać w tablicy film, albo np według aktora czy tam tytułu
Zrobiłem tablicę typu recordowego "film" w niej są 4 pola, tytuł, rezyser, aktor, gatunek wszystkie typu string

I teraz nie wiem jak z EDit zapisać dane do takiej tablicy

To przypisz tablice do swojego rekordu.

var
Tablica: array[1..Max] of Film;
i: integer = 0;

procedure TForm3.Button1Click(Sender: TObject);  //button zapisz
begin
inc(i);
Film[i].Tytul:= Edit1.Text;
Film[i].Rezyser:= Edit2.Text;
Film[i].Gatunek:=  //
Film[i].Aktor:= //
end;