ShowGrayScaleDlg example for Delphi

procedure TForm1.ShowGrayScaleDlg1Click(Sender: TObject); 
begin
   LEADDlgColor1.RedFactor:= 400; 
   LEADDlgColor1.GreenFactor:= 300; 
   LEADDlgColor1.BlueFactor:= 300; 
   LEADDlgColor1.DlgFlags:= DLG_GRAYSCALE_SHOW_PREVIEW Or
                             DLG_GRAYSCALE_SHOW_TOOL_ZOOMLEVEL; 
   LEADDlgColor1.LEADImage:= LEADImage1; 
   LEADDlgColor1.LEADDlgService:= LEADDlgService1; 
   LEADDlgColor1.ShowGrayScaleDlg ( Self ); 
end;