problem beim vergleichen von Karten --- Gewinner ermitteln

[Fussel9]

I-wie gehts da nix^^ also ich lasse mir testweise die karten der gegner (G1 und G2) mit anzeigen und die Abfrage scheint noch nicht zu stimmen is wahrscheinlich wieder irgend ne kleinigkeit oder son ganz blöder fehler

Danke schonmal fürs Korrigieren meiner Blödheit

Aufruf:

Delphi-Quellcode:

procedure TFormMain.Card1Click(Sender: TObject);
var i: Integer;
begin
(Sender as TImage).BringToFront;
ShowMessage(IntToStr((Sender as TImage).Tag));
Hand.toFirst;
for i := 1 to ((Sender as TImage).Tag)-1 do
  begin
    Hand.Next;
  end;
Berechne(Hand.GibAktuelles,G1Hand.GibErstes.GibNext,G2Hand.GibErstes.GibNext);
end;

Proz:

Delphi-Quellcode:

procedure TFormMain.Berechne(pKarte, pG1Karte, pG2Karte: TKarte);
begin
if (pKarte.GibInhalt.GibZahl > pG1Karte.GibInhalt.GibZahl) then
  begin
    if (pG1Karte.GibInhalt.GibZahl > pG2Karte.GibInhalt.GibZahl) then
      begin
        ShowMessage('Spieler gewinnt');
      end
    else
      begin
        if (pKarte.GibInhalt.GibZahl > pG2Karte.GibInhalt.GibZahl) then
          begin
            ShowMessage('Spieler gewinnt');
          end
        else
          begin
            ShowMessage('Gegner2 gewinnt');
          end;
      end;
  end
else
  begin
    if (pG1Karte.GibInhalt.GibZahl > pG2Karte.GibInhalt.GibZahl) then
      begin
        ShowMessage('Gegner1 gewinnt');
      end
    else
      begin
        ShowMessage('Gegner2 gewinnt');
      end;
  end;
end;