und noch besser, wenn du nur einmal wandelst...
Delphi-Quellcode:
procedure TGUI.btokClick(Sender: TObject);
var zahl: integer;
begin
zahl:= strtoint(Tipp.text);
if zahl= wuerfel1.liesFZahl then
LaStatus.caption := 'Du Ratekönig'
else if zahl< wuerfel1.liesFZahl then
LaStatus.caption := 'Die Zahl ist zu klein.'
else if zahl> wuerfel1.liesFZahl then
LaStatus.caption := 'Die Zahl ist zu groß.';
LaStatus.Visible := true;