Erstes Delphi Programm =)

[4nG3L]

aso okay aber jetzt habe ich direkt das nächste problem:

Delphi-Quellcode:

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
randomize;
if x = 4 then
begin
  BitBtn6.Visible := true;
  BitBtn7.Visible := true;
  BitBtn8.Visible := true;
  BitBtn9.Visible := true;
  BitBtn10.Visible := true;
  Bitbtn4.Font.Color := CLLime;
bitbtn4.Caption := 'RICHTIG';
  x := random(4)+1;
end 
else
  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;
end;

so sehn in etwer alle ersten 5 buttons aus (bis auf kleinigkeiten). wenn ich jetzt im spiel test den richtigen kriege wird die nächste reihe sichtbar aber auf dem button steht dann in grüner schrift FALSCH obwohl ich ja

Delphi-Quellcode:

  Bitbtn4.Font.Color := CLLime;
bitbtn4.Caption := 'RICHTIG';

das da hingeschrieben habe..meiner meinung nach sollte auf dem richtigen button nun in grüner schrift RICHTIG stehen und nicht FALSCH..