[microbiano]

para controlar los errores puedes hacerlo asi

Código Delphi [-]
try
//instruccion a ejecurar
except
     on E:EOleException do
      begin
      MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
      end;
   end;

de esta forma te captura el codigo de error y el mensaje