CaptureOptionDlg Example for Delphi 4.0

procedure TForm1.Button2Click(Sender: TObject);
var
   nRet: L_INT;
begin
   //disable errors to check for cancel
   LEADScr1.EnableMethodErrors:= False;
   LEADScr1.ShowHelpButton:= True;
   //display capture option dialog
   nRet:= LEADScr1.CaptureOptionDlg( Self, 0 );
   if ( nRet <> SUCCESS ) then
   begin
      if ( nRet <> ERROR_USER_ABORT ) then
         ShowMessage ( 'Error setting options!' );
   end;
end;

procedure TForm1.LEADScr1ScreenDlgHelp(uDialogID: Cardinal; nCtlID: Integer);
begin
// set your code here
end;