Durch Zufall zweite Form öffnen

[Goldstart]

Hallo Leute...

Ich und meine Freundin sind noch richtige Anfänger, was das programmieren der Delphi-Sprache angeht. Doch im Rahmen eines Schulprojektes müssen wir nun ei Delphiporgramm selbst erstellen, wobei wir jetzt gerade vor dem folgenden Problem stehe:

Ich habe Form 1 bi s 8 und versuche dass sich per Knopfdruck einer dieser zufällig öffnet.


Mein Text sieht so aus:
mit Checkboxen habe ich gearbeitet.

Delphi-Quellcode:

procedure TForm1.Panel1Click(Sender: TObject);
var z1,z2,f1,f2,f3,f4,f5,f6:integer;

begin
if (checkbox1.checked=true) //Um die nächste Seite zu öffnen
and (checkbox2.checked=false)
and (checkbox3.checked=false)
and (checkbox4.checked=false)
and (checkbox6.checked=false)
and (checkbox8.checked=false)
and (checkbox9.checked=false)
and (checkbox5.checked=true)
and (checkbox7.checked=true)
 then randomize;
for z1 := 1 to 3 do
f1:=(random(4));
edit1.text:=IntToStr(f1);

if edit1.text='0' then form2.show;
if edit1.text='1' then form2.show;
if edit1.text='2' then form2.show;



(checkbox1.checked=true) //Um die nächste Seite zu öffnen
and (checkbox2.checked=false)
and (checkbox3.checked=false)
and (checkbox4.checked=false)
and (checkbox6.checked=false)
and (checkbox8.checked=false)
and (checkbox9.checked=false)
and (checkbox5.checked=true)
and (checkbox7.checked=true)
then form1.Hide;
else showmessage('FEHLER SIND NOCH VORHANDEN');

Ich hoffe jemand könnte mir weiterhelfen.



Mit freundlichen Grüßen

Lena

[edit=SirThornberry]Delphi-Tags gesetzt und Sprache korrigiert (Schulprogrammierung ist kein .NET) - Mfg, SirThornberry[/edit]