Erstes Delphi Programm =)

[4nG3L]

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
BitBtn1.Font.Color:= ClRED;
BitBtn1.Caption := 'FALSCH';
windows.Beep(200,200);
Inc(FZaehler);
  label27.Caption := 'Fehler: ' + IntToStr(FZaehler); //Das Lebel auch so bennen "lblFehler"
  if FZaehler > 9 then
    begin
      MessageBox(Handle,'Du hast 10 Fehler gemacht, Damit hast du verloren.','Verloren',MB_OK or MB_ICONINFORMATION);
     case FVerloren.ShowModal of
      mrOK:
        begin
          Close;
        end;

      mrCancel:
        begin
          'Spiel Neu Starten'
        end;
   end;
end;

ich habs so versucht der sagt mir da das FVerloren kein gültiger bezeichner ist dann hab ich das noch ausprobiert

Delphi-Quellcode:

  private
     { Private-Deklarationen }
     FVerloren;
     FZaehler: Integer;

aber mir war irgendwie klar das das schwachsinn ist^^