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;