Schachbrettmuster im Array

[tankm26]

Die beiden Zeilen kann ich schon mal rausschmeißen, es warten nur Versuche:

if feld [spielfeld.Col,spielfeld.Row].canvas.Brush.Color=clblack then begin
feld[spielfeld.Col,spielfeld.Row].canvas.Brush.Color:=clwhite;

Den Kram auch...
{ feld[aCol,aRow].Color:=clblack;
if Spielfeld.Color=clWhite
then Spielfeld.Color:=clblack; }