Mastermind mit Zahlen

[dreamsahin]

Hallo Forum,
Versuche als Anfänger seit ne knappe Monat einen Mastermind klon mit zahlen zu erstellen
bin mit der Prog FAST fertig ( auch mit der nerven ) an einer stelle habe ich einen Bug festgestellt und krieg den irgendwie nicht korrigiert.

Ablauf des Spiels ist...

beim start des spiels wird 5 separate zahlen von comomputer generiert dieser
vom spieler in 5 edit felder erraten werden müssen.

bsp.

von comp. generierte zahl ( gleiche Zahlen sind erlaubt )

5 6 1 8 5

vom spieler angegebene zahl

6 5 8 5 5

ergebniss sollte so sein
0 richtige 3 falsche position

vorkommende ergebniss ist bei mir
0 richtige 8 falsche pos.

die vom spieler gegebene zahl 5 wird 3 mal vergleicht sollte aber NUR einmal vergleicht werden ....

Delphi-Quellcode:

 begin
       richtig:=0;
   for i:=1 to 5 do
   If  code[i] = geraten[i] Then inc(richtig);
       Label6.Caption:=IntToStr(richtig);                // richtige Zahl richtige Position
    if richtig=5 then
    begin
     Image1.Visible:=True;
      ListBox2.Items.Insert(ListBox2.Items.Count-0,' '+Edit6.Text+' '+' '+Label16.Caption+' '+' '+Counter.Text+'.'+Label18.Caption+' '+' '+Label17.Caption);      //Bewertung abgeben
       end;

       falsch:=0;                                   // Zähler zurück setzen
   for i:=1 To 5 Do                                  // zahlen vergleich
    If code[i]<>geraten[i] Then
   for j:= 1 to 5 do
   if geraten[i]=code[j] then inc(falsch);
    Label7.Caption:=IntToStr(falsch);
       ListBox1.Items.Insert(Listbox1.Items.Count-1,' '+Edit1.Text+' '+Edit2.Text+' '+Edit3.Text+' '+Edit4.Text+' '+Edit5.Text+' '+' '+' '+' '+' '+' '+' '+' '+' '+' '+' '+' '+Label6.Caption+' '+' '+' '+' '+' '+' '+' '+Label7.Caption);
    if count=10 then
   begin
        counter.Color:=clred;
     if Application.MessageBox('noch ein Versuch?','VERLOREN',36)= 7 then Close     //Nochmal versuchen
     else
        Edit6.Enabled:=True;
        Counter.Color:=clWhite;
        Count:=0;
        Label6.Caption:=IntToStr(richtig);
        Label7.Caption:=IntToStr(falsch);
      ListBox2.Items.Insert(ListBox2.Items.Count-0,' '+Edit6.Text+' '+' '+Label16.Caption+' '+' '+Counter.Text+'.'+Label18.Caption+' '+' '+Label17.Caption);
   end;
 end;
   end;

habe vieles probiert leider ohne erfolg....

würde mich für eure antworten sehr freuen
danke schonmal im voraus...

[edit=Dax][delphi]-Tags... Mfg, Dax[/edit]