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

var
  R, G, B: Byte;
begin
  R := MyColor and $FF;
  G := MyColor shr 8 and $FF;
  B := MyColor shr 16 and $FF;					

1:
2:
3:

R := 255 - R;
G := 255 - G;
B := 255 - B;					

1:

MyColor := R or (G shl 8) or (B shl 16);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function Contrast(Color: TColor): TColor;
var
  R, G, B: Integer;
begin
  Color := ColorToRgb(Color);
  R := Color and $FF;
  G := (Color and $FF00) shr 8;
  B := (Color and $FF0000) shr 16;
  if ((R * 0.239) + (G * 0.686) + (B * 0.075) >= 127.5) then
    Result := clBlack
  else
    Result := clWhite;
end;