HaLLO!
Ueberprueft mal den Code Karte[k2].Shape.Brush.Color := ...
K2 ist 0, was einen Fehler ausloest.
Delphi-Quellcode:
Karte[k1].Shape.Brush.Color := $00FFDDAA; //Karten werden wieder zugedeckt
Karte[k2].Shape.Brush.Color := $00FFDDAA; //===> Fehler, da k2 0 ist