Error (LEADDlgWeb Control) example for Delphi

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