Listbox: Inhalt formatierter Zeilen auf Variablen verteilen

[Silentium]

Morgen Leute,
ich habe folgendes Problem: Ich habe in einer Textdatei mehrere Zeilen an Text stehen, der so formatiert
ist:

Spanische Vokabel [TAB] deutsche Vokabel

Diese Textdatei lade ich in eine Listbox. Nun möchte ich, mit Hilfe eines Algorithmus, von einer
zufällig aufgewählten Zeile die spanische Vokabel in eine Variable, die deutsche in eine andere Variable
geschrieben haben.
Meine Idee dazu:

Delphi-Quellcode:

...

type
  TStringArray = Array[0..1] of string;

...

function Zufallsaufgabe(ListBox:TListBox):TStringArray;
  var zufallszahl,Listboxzeilen,i:integer;
      zeile,spanisch,deutsch:string;
      nochspanisch:boolean;
      return:TStringArray;
  Begin
    randomize;
    nochspanisch := true;
    deutsch := '';
    spanisch := '';

    listboxzeilen := Listbox.Count;
    zufallszahl := Random(listboxzeilen-1);
    zeile := Listbox.Items.Strings[zufallszahl];

    for i := 0 to (length(zeile)-1) do begin
      if zeile[i] = chr(9) then  //wenn dieses Zeichen TAB ist, dann folgt die deutsche Vokabel
        nochspanisch := false
      else begin
        if nochspanisch = true then
          spanisch := spanisch + zeile[i]
        else
          deutsch := deutsch + zeile[i];
      End;
    End;

    return[0] := spanisch;
    return[1] := deutsch;

    result := return;
End;

...

procedure TForm1.Button1Click(Sender: TObject);
  var aufgabe:TStringArray;
  begin
    aufgabe := Zufallsaufgabe(ListBox1);
    Edit1.Text := aufgabe[0]+' '+aufgabe[1];
end;

Mein Problem hierbei: Die Edit bleibt leer.
Bitte hülft mir

Danke im Voraus
Silentium