Error (LEADDlgColor Control) example for Delphi

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