Zufallszahlen Programm

[ghosty]

Weiß nicht ob du das so meintest aber:

procedure TForm1.Button1Click(Sender: TObject);
Var
Zahl1, Zahl2, Eingabe, Ergebnis, ZufallsZahl: Integer;
begin
Zahl1 := StrToInt(txtZahl1.Text);
Zahl2 := StrToInt(txtZahl2.Text);

Eingabe := StrToInt(txtEingabe.Text);

Randomize;
ZufallsZahl := Random(Zahl2 + 1);

while not(Zufallszahl > Zahl1) do
begin
ZufallsZahl := Random(Zahl2 + 1);
end;

if ZufallsZahl < Eingabe then
Begin
  ShowMessage('Zahl ' + IntToStr(ZufallsZahl) + ' ist kleiner als die Angegebene!');
End;

if ZufallsZahl > Eingabe then
Begin
  ShowMessage('Zahl ' + IntToStr(ZufallsZahl) + ' ist größer als die Angegebene!');
End;

if ZufallsZahl = Eingabe then
Begin
  ShowMessage('Zahl ' + IntToStr(ZufallsZahl) + ' ist so groß wie die Angegebene!');
End;

Edit: http://www.file-upload.net/download-...sZahl.rar.html