procedure RGBTOCMYK(R : byte;
  G : byte;
  B : byte;
  var C : byte;
  var M : byte;
  var Y : byte;
  var K : byte);
begin
 C := 255 - R;
 M := 255 - G;
 Y := 255 - B;
 if C 0 then
  begin
  c := c - k;
  m := m - k;
  y := y - k;
  end;
end;