Ungerade Zahlen odd

[Muddy]

Programmieren sie flogendes Programm in 2 Versionen,
zum einen mit repeat, zum anderen mit while.
Es sollen in einem Delphi-Programm zufallszahlen zwischen 1 und 100 gebildet werden bis die Anzahl der geraden
Zahlen einer von dem Benutzer eingegebenen Anzahl entspricht.
Sowohl als auch die geraden und ungeraden sollen angezezeigt werden in unterschiedlichen Memofeldern.
Die jeweilige ANzahl der Zahler wird unter die Liste angegeben}

Das ist meine Aufgabe!!!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl1, zufall, runde: real;
function Odd(zahl1: Integer): Boolean;
begin
runde := 0 ;
randomize ;
  try
  zahl1 := strtoint (edit1.Text);
  if  then
    while zufall <> zahl1 do
      begin
        runde := runde +1;
        zufall := random (100) +1;
        memo1.Lines.add ( floattostr(runde)+'. Runde '+ floattostr(zufall))
      end

  else
    while zufall <> zahl1 do
      begin
        runde := runde +1;
        zufall := random (100) +1;
        memo2.lines.add ( floattostr (runde)+'. Runde '+ floattostr(zufall));
      end;

except
  memo1.lines.add ('Die Zahl wurde nach der' +floattostr(runde)+ ' Runde erreicht');
  memo2.lines.add ('die Zahl wurde nach der' +floattostr(runde)+ ' Runde erreicht');
end;
end;

SO mein PRoblem ist!!! Was schreibe ich in die if Aiweisung, damit er, fals die Zahl eine ungerade zahl ist, in die erste Schleife reingeht!!!