String ausgeben

[DelphiDan]

Hallo Leute,

ich bin noch ein "Anfänger" in Delphi und komme gerade nicht wirklich weiter, weil ich den Fehler in einer Procedure nicht findet.

Ich versuche ein einfachen Vokabeltrainer zu erstellen.
Man kann jeweils 12 Wörter eintragen (pro Sprache) und diese sollen dann auf einem extra Panel in 2 Edit Felder abgefragt werden.
Nun ist mein erstes Problem, dass nach dem man auf den Button "Start" klickt, keine Wörter auf den Editorfelder ausgeben werden.

Die gesamte Procedure lautet:

Delphi-Quellcode:

var d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,e1,e2,e3,e4,e5,e6,e7,e8,e9,e10,e11,e12:string;
    zufalldeutsch,zufallenglisch:integer;

procedure TForm1.ButtonstartClick(Sender: TObject);
begin

    if deutsch1.text='' then
    begin
    showmessage('Bitte alle Felder ausfüllen');
    exit;
    end;
    if deutsch2.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen');
    exit;
    end;
    if deutsch3.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen');
    exit;
    end;
    if deutsch4.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen');
    exit;
    end;
    if deutsch5.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen');
    exit;
    end;
    if deutsch6.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
    exit;
    end;
    if deutsch7.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
    exit;
     end;
    if deutsch8.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
    exit;
    end;
    if deutsch9.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
    exit;
    end;
    if deutsch10.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
    exit;
   end;
    if deutsch11.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
     exit;
    end;
    if deutsch12.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
    exit;
    end;
    if englisch1.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
     exit;
    end;
    if englisch2.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
    exit;
    end;
    if englisch3.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
    exit;
    end;
    if englisch4.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
     exit;
    end;
    if englisch5.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
    exit;
    end;
    if englisch6.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
     exit;
    end;
    if englisch7.text='' then
     begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
    exit;
    end;
    if englisch8.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
    exit;
    end;
    if englisch9.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
    exit;
    end;
    if englisch10.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
    exit;
    end;
    if englisch11.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
    exit;
    end;
    if englisch12.text='' then
    begin
    showmessage('Fehler'+'Bitte alle Felder ausfüllen') ;
    exit;
    end;

    panel1.visible:=true;

    d1:=deutsch1.text;
    d2:=deutsch2.text;
    d3:=deutsch3.text;
    d4:=deutsch4.text;
    d5:=deutsch5.text;
    d6:=deutsch6.text;
    d7:=deutsch7.text;
    d8:=deutsch8.text;
    d9:=deutsch9.text;
    d10:=deutsch10.text;
    d11:=deutsch11.text;
    d12:=deutsch12.text;
    e1:=englisch1.text;
    e2:=englisch2.text;
    e3:=englisch3.text;
    e4:=englisch4.text;
    e5:=englisch5.text;
    e6:=englisch6.text;
    e7:=englisch7.text;
    e8:=englisch8.text;
    e9:=englisch9.text;
    e10:=englisch10.text;
    e11:=englisch11.text;
    e12:=englisch12.text;

    zufalldeutsch:=random(1-12);

    If zufalldeutsch=1 then
    begin
    editdeutsch.text:=d1;
    editenglisch.text:=e1;
    end else
    If zufalldeutsch=2 then
    begin
    editdeutsch.text:=d2;
    editenglisch.text:=e2;
    end else
    If zufalldeutsch=3 then
    begin
    editdeutsch.text:=d3;
    editenglisch.text:=e3;
    end else
    If zufalldeutsch=4 then
    begin
    editdeutsch.text:=d4;
    editenglisch.text:=e4;
    end else
    If zufalldeutsch=5 then
    begin
    editdeutsch.text:=d5;
    editenglisch.text:=e5;
    end else
    If zufalldeutsch=6 then
    begin
    editdeutsch.text:=d6;
    editenglisch.text:=e6;
    end else
    If zufalldeutsch=7 then
    begin
    editdeutsch.text:=d7;
    editenglisch.text:=e7;
    end else
    If zufalldeutsch=8 then
    begin
    editdeutsch.text:=d8;
    editenglisch.text:=e8;
    end else
    If zufalldeutsch=9 then
    begin
    editdeutsch.text:=d9;
    editenglisch.text:=e9;
    end else
    If zufalldeutsch=10 then
    begin
    editdeutsch.text:=d10;
    editenglisch.text:=e10;
    end else
    If zufalldeutsch=11 then
    begin
    editdeutsch.text:=d11;
    editenglisch.text:=e11;
    end else
    If zufalldeutsch=12 then
    begin
    editdeutsch.text:=d12;
    editenglisch.text:=e12;
    end;

Kann mir jemand helfen?
Danke!