problem beim vergleichen von Karten --- Gewinner ermitteln

[freak4fun]

Hi,
ich schau mir das mal an. Den ersten Fehler den ich gefunden habe ist in HideCard. Der Schleifenzähler ist falsch, da Arrays mit 0 anfangen:

Delphi-Quellcode:

procedure TFormMain.HideCard(aImage: array of TImage;
                             bImage: array of TImage;
                             cImage: array of TImage);
var
  i : Integer;
begin
  for i := 0 to 19 do
    begin
      aImage[i].Hide;
      bImage[i].Hide;
      cImage[i].Hide;
    end;
  Runde := 0;
end;

Ich schau mal weiter ...