Erstes Delphi Programm =)

[Super_Chemiker]

ahh!

Delphi-Quellcode:

end
else
begin // das hat gefehlt
  BitBtn4.Font.Color:= ClRED;
BitBtn4.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;// das auch
end;
end;