Problem Array of String

[erdoganatalay]

Hallo erstmal
ich bin dabei ein (sehr einfaches) Vokabel-Abfrag Programm zu schreiben.
Dabei hab ich jetzt versucht in ein Label einen aus einer Datei gelesenen Text als Caption zu speichern. Aber seht es euch doch selber an:

Delphi-Quellcode:

const Max = 30;

var
  Form1: TForm1;
  Datei : TextFile;
  DateiName : String;
  Vokabel : Array[1..Max] of String;
  RLoesung : Array[1..Max, 1.. 1] of String;
  Nr, alt : Integer;
  r,f : Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
  alt := 0;
  r := 0;
  f := 0;
  randomize;
 try
  if OpenDialog1.Execute
  then
    begin
      DateiName := OpenDialog1.FileName;
    end
  else
      DateiName := 'Vokabeln.txt';
  AssignFile (Datei, DateiName);
  Reset (Datei);
  for i:= 1 To Max do
  begin
    ReadLn (Datei, Vokabel[i]);
    ReadLn (Datei, RLoesung[i,1]);
  end; //for
  CloseFile (Datei);
 except
  Showmessage('Datei oder Daten nicht gefunden!');
 end; //try
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Nr := random (Max) +1;
  if Nr <> alt
  then
  begin
    Label5.Caption := Vokabel[Nr];
    alt := Nr;
  end
  else
    Form1.Button1.Click;
end;

end.

So als Fehlermeldung erhalte ich, dass TString erlaubt wäre aber Array vorhanden (Label5)

Könnt ihr mir helfen

PS: hab es auch schon mit RichEdit und Memo probiert funzt auch nicht...