Hallo,
Versuch mal sowas
Delphi-Quellcode:
procedure TForm1.Button1.Click(Sender: TObject);
var
z : integer;
begin
randomize;
z := random(40)+1; //Zufallszahl im Bereich 1-40
end;
Achso, du musst noch eine Schleife einbauen, die abfragt, welche Zahlen schon waren.
MFG
Jens