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

case Random(6) + 1 of
1: farbe := clred;
2: farbe := clyellow;
3: farbe := clblue;
4: farbe := clgreen;
5: farbe := clwhite;
6: farbe := clblack;
end;					

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

const
  MyColors: array[0..4] of TColor = (clRed, clGreen, clBlue, clYellow, clWhite);
begin
  CurrentColor := MyColors[Random(Length(MyColors))];
  ...
end;					

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

function RandomColor(const Colors: array of TColor): TColor;
var 
  I: Integer;
begin
  Result := clBlack;

  if Length(Colors) <> 0 then
    Result := Colors[Random(High(Colors))];
end;