1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

case Feld[11] of
   0 : Label11.color:= clWhite;
   1 : Label11.color:= clBlack;
   2 : Label11.color:= clRed;
 end;
 case Feld[12] of
   0 : Label12.color:= clWhite;
   1 : Label12.color:= clBlack;
   2 : Label12.color:= clRed;
 end;					

1:
2:
3:
4:
5:
6:

var LabelArray : array [1..64] of TLabel;
{...}

LabelArray[1] := Label11;

LabelArray[1].color := clwhile;