Erstes Delphi Programm =)

[Super_Chemiker]

ja, das war das problem:

Delphi-Quellcode:

procedure TForm1.BitBtn10Click(Sender: TObject);
begin
randomize;

if x = 5 then//hier! es darf nur von 1 bis 5 gehen, dann fängt es von vorne an
begin
  BitBtn11.Visible := true;
  BitBtn12.Visible := true;
  BitBtn13.Visible := true;
  BitBtn14.Visible := true;
  BitBtn15.Visible := true;
  Bitbtn10.Font.Color := CLLime;
bitbtn10.Caption := 'RICHTIG';
  x := random(4)+1;
end
else
begin
  BitBtn10.Font.Color:= ClRED;
BitBtn10.Caption := 'FALSCH';
windows.Beep(200,200);
Inc(FZaehler);
  label27.Caption := 'Fehler: ' + IntToStr(FZaehler);
  if FZaehler > 9 then
  begin
   If MessageDlg('Du hast das Spiel verloren, möchtest du es neu Starten ?',
   mtConfirmation, [mbYes, mbNo], 0) = mrYes
   then
   Neustarten1.Click
   else
   Close;
end;
end;
end;