Delphi-Quellcode:
zahl := random (10); // zufallszahl erzeugen
if strtoint(Edit1.Text) < zahl then Label1.Caption := 'größer !!';
if strtoint(edit1.Text) > zahl then Label1.Caption := 'kleiner !!';
if strtoint(edit1.Text) = zahl then label1.Caption := 'getroffen !!!';
// überprüfen, ob richtig ...
Du brauchst:
Button1 (Zahl ausdenken)
Button2 (raten)
Edit1 (zahl)
Label1
und natürlich die prozeduren im objektmanager zuordnen ...