转化RGB颜色为CMYK颜色

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

procedure CMYKTORGB(C : byte;
                    M: byte;
                    Y : byte;
                    K : byte;
                    var R : byte;
                    var G : byte;
                    var B : byte);
begin
   if (Integer(C) + Integer(K)) <  then
     R :=  - (C + K) else
     R := ;
   if (Integer(M) + Integer(K)) <  then
     G :=  - (M + K) else
     G := ;
   if (Integer(Y) + Integer(K)) <  then
     B :=  - (Y + K) else
     B := ;
end;

procedure ColorCorrectCMYK(var C : byte;
                           var M : byte;
                           var Y : byte;
                           var K : byte);
var
  MinColor : byte;
begin
  if C < M then
    MinColor := C else
    MinColor := M;
  if Y < MinColor  then
    MinColor := Y;
  if MinColor + K >  then
    MinColor :=  - K;
  C := C - MinColor;
  M := M - MinColor;
  Y := Y - MinColor;
  K := K + MinColor;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  R : byte;
  G : byte;
  B : byte;
  C : byte;
  M : byte;
  Y : byte;
  K : byte;
begin
  R := ;
  G := ;
  B := ;
  Memo1.Lines.Add('R = ' + IntToStr(R));
  Memo1.Lines.Add('G = ' + IntToStr(G));
  Memo1.Lines.Add('B = ' + IntToStr(B));
  Memo1.Lines.Add('-------------------');
  RGBTOCMYK(R, G, B, C, M, Y, K);
  Memo1.Lines.Add('C = ' + IntToStr(C));
  Memo1.Lines.Add('M = ' + IntToStr(M));
  Memo1.Lines.Add('Y = ' + IntToStr(Y));
  Memo1.Lines.Add('K = ' + IntToStr(K));
  Memo1.Lines.Add('-------------------');
  CMYKTORGB(C, M, Y, K, R, G, B);
  Memo1.Lines.Add('R = ' + IntToStr(R));
  Memo1.Lines.Add('G = ' + IntToStr(G));
  Memo1.Lines.Add('B = ' + IntToStr(B));
  Memo1.Lines.Add('-------------------');
  RGBTOCMYK(R, G, B, C, M, Y, K);
  c := c + ;
  m := m + ;
  y := y + ;
  ColorCorrectCMYK(C, M, Y, K);
  Memo1.Lines.Add('C = ' + IntToStr(C));
  Memo1.Lines.Add('M = ' + IntToStr(M));
  Memo1.Lines.Add('Y = ' + IntToStr(Y));
  Memo1.Lines.Add('K = ' + IntToStr(K));
end;