ShowDotRemoveDlg example for Delphi

procedure TForm1.ShowDotRemoveDlg1Click(Sender: TObject); 
begin
   LEADDlgImgDoc1.MinDotWidth:= 6; 
   LEADDlgImgDoc1.MinDotHeight:= 6; 
   LEADDlgImgDoc1.MaxDotWidth:= 8; 
   LEADDlgImgDoc1.MaxDotHeight:= 8; 
   LEADDlgImgDoc1.WhiteAreaColor:= RGB ( 255, 0, 0 ); 
   LEADDlgImgDoc1.BlackAreaColor:= RGB ( 0, 0, 255 ); 
   LEADDlgImgDoc1.ProcessFlags:= DOT_USE_DIAGONALS Or DOT_USE_DPI; 
   LEADDlgImgDoc1.DlgFlags:= DLG_DOTREMOVE_AUTOPROCESS Or
                             DLG_DOTREMOVE_SHOW_PREVIEW Or
                             DLG_DOTREMOVE_SHOW_TOOL_ZOOMLEVEL; 

   LEADDlgImgDoc1.LEADImage:= LEADImage1; 
   LEADDlgImgDoc1.ShowDotRemoveDlg ( Self ); 
end;