SampleTarget example for Delphi

procedure TForm1.SampleTargetClick(Sender: TObject);
begin
   LEADImage1.SampleTarget( RGB(50, 100, 150), RGB(60, 90 , 150), SAMP_RED Or SAMP_MID );
end;