Error (LEADDlgFile Control) example for Delphi

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