SelectiveColor example for Delphi

procedure TForm1.SelectiveColor1Click(Sender: TObject);
var
   selColors: TLEADSelClrInfoArr;
begin
   // Initialize selClr to zeros.
   FillMemory ( @selColors, sizeof(SELECTIVECOLORINFO)*9, 0 );

   { Manipulate values }
   selColors[SELCLR_RED].cCyan:= -100; // Change the "Red selected color"
   selColors[SELCLR_YELLOW].cCyan:= 34;  // Change the "Yellow selected color"
   selColors[SELCLR_YELLOW].cMagenta:= 100;
   selColors[SELCLR_YELLOW].cYellow:= 40;
   selColors[SELCLR_GREEN].cBlack:= 100; // Change the "Green selected color"
   selColors[SELCLR_NEUTRAL].cCyan:= -65;  // Change the "neutral selected color"
   selColors[SELCLR_NEUTRAL].cMagenta:= -39;
   selColors[SELCLR_NEUTRAL].cYellow:= 63;
   // Call the function
   LEADImage1.SelectiveColor( selColors );
end;