problem beim vergleichen von Karten --- Gewinner ermitteln

[DeddyH]

Delphi-Quellcode:

procedure TFormMain.Berechne(pKarte, pG1Karte, pG2Karte: TKarte);
begin
//Ist pKarte höher als pG1Karte?
if (pKarte.GibInhalt.GibZahl > pG1Karte.GibInhalt.GibZahl) then
  begin
    //auch höher als pG2Karte?
    if (pKarte.GibInhalt.GibZahl > pG2Karte.GibInhalt.GibZahl) then
      begin
        ShowMessage('Spieler gewinnt');
      end
    //wenn nicht, muss ja pG2Karte die höchste sein
    else
      begin
        ShowMessage('Gegner2 gewinnt');
      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;

Gleichheit wird auf diese Weise allerdings nicht ausgewertet, aber ich weiß ja auch nicht, ob diese überhaupt eintreten kann.