Error (LEADDlgImgEffect Control) example for Delphi

procedure TForm1.Button1Click(Sender: TObject); 
begin
   LEADDlgImgEffect1.EnableMethodErrors:= true; 
     try
      LEADDlgImgEffect1.ShowMotionBlurDlg ( Nil ); 
   except
      ShowMessage('Calling ShowMotionBlurDlg method failed'#10'Error No ' + IntToStr(LEADDlgImgEffect1.Error) + #10 + LEADDlgImgEffect1.ErrorMsg); 
   end; 
end;