Versuche werden nicht gezählt

[Versus]

Delphi-Quellcode:

procedure TForm10.Button3Click(Sender: TObject);
begin
  Versuche:=0;
   Versuche:= Versuche +1;
  label5.Caption:='Versuche: '   +IntToStr(Versuche)  ;

label2.caption:=IntToStr(zahl1);
label3.Caption:=IntToStr(zahl2);
zahl1:=random(100)+2;
zahl2:=random(100)+2;
if (zahl1) and (zahl2) =0 then
repeat
zahl1:=random(100)+2;
zahl2:=random(100)+2;
until (zahl1) and (zahl2) <> 0;
Zahl3:=StrToInt(label2.caption) ;
Zahl4:=StrToInt(label3.caption);
Ergebnis2:= (zahl3+zahl4) ;

 edit2.Text:=IntToStr(Ergebniss2) ;

Ich hätte da zwei Fragen und auch 2 Probleme :/. Erstens wenn ich auf den Button klicke sollte er normalerweise eine Zufallszahl generieren das Problem ist wenn ich das erste mal draufdrücke erscheint erst eine 0 und erst beim 2 mal drücken wird die Zufallszahl generierte . Und Zweitens Die Versuche werden immer nur bei dem ersten Click gezählt z.B. Von 0 auf 1 dann jedoch nicht mehr egal wie oft ich drauf drücke. Was mach ich wohl Falsch ?
Sorry bin ein absoluter Neuling.Dennoch würde ich mich freue ich mich über jede hilfreiche Antwort.