Quiz in Delphi

[chuck.9]

tachchen...

ich bin nun soweit fertig mit mein Quiz

Nun möchte ich 3 Joker einfügen: 50:50, Nachschlagen und Publikumsjoker...!

Den Nachschlage Joker hab ich wiefolgt gelöst:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
// Nachschlagen Joker

    ShellExecute(Handle,'open','http://de.wikipedia.org/wiki/Wikipedia:Hauptseite',nil,nil,SW_SHOW);
    Button3.enabled := false;
end;

Im 50:50 Joker wird bis jez nur eine Frage gestrichen...! Aber möchte 2 Löschen, wie realisiere ich dies?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);// 50 : 50 Joker
begin
  // Einen falschen Eintrag ermitteln
  repeat
    Falsch1 := Random(3);
  until Falsch1 <> quizrichtig(n,6);
  // Falsche Antwort deaktivieren
  RadioGroup1.Buttons[Falsch1].Enabled := False;

end;

Und dann noch einen Lösungsvorschlag für den Publikumsjoker, bitte!

danke