ich hab das jetzt auch schon etwas hin bekommen

nur wenn ich zahlenbereich1 z.B. 10 und zahlenbereich2 z.B. 100 einlesen will muss er ja dann von 10 - 100 zufallszahlen berechnen

das ist mein code bis jetzt

Code:
zahlenbereich1 := StrToInt (edt_eingabe.Text);
zahlenbereich2 := StrToInt (edt_eingabe2.Text);
eingabe:= strtoint(edit1.Text);

randomize;

zahl:= random(zahlenbereich1);
zahl2 := random (zahlenbereich2);

label1.caption:=inttostr(zahl);
ergebnis:= zahl*zahl;
if eingabe = ergebnis then showmessage('richtige Zahl')
else showmessage('FALSCH');