Tippspiel!

[delphi-noob]

Danke erstmal für die Hilfe und sory nochmal für den "etwas" dumm erstellten text!
Ich hänge komplett an dem Quelltext fest!
Also ich habe geschafft:

Label1 = Gebe eine Zahl zwischen 1 und 10 ein
edit1 = Dort soll die Zahl eingegeben werden!
button1 = Drauf drücken/ doppelklick code

Zitat:

procedure TForm1.ratenClick(Sender: TObject);

function Zufallszahl(Von, bis: Integer): Integer;
begin
Result := Random(Succ(0 - 10)) + Von;
end;


var eingabe : Integer;
begin
Eingabe:=StrToInt(Edit1.Text);
if Eingabe=3
then label2.Caption:='Das war ein sehr guter Tipp!'
else
if Eingabe<3
then label2.Caption:='die zahl ist leider kleiner als 1'
else label2.Caption:='die zahl ist leider groeßer als 10';

end;

end.

Label2 = Ausgabefeld für [Zahl zu groß oder zu klein],[Generierte Zahl] und [Richtig oder Falsch]