Código Delphi [-] ... begin try WordApplication1.Connect; except on E: EOleSysError do raise Exception.Create(Format('Error: %s %sCódigo: %x', [E.Message, #10#13, E.ErrorCode])); end; ...
... begin try WordApplication1.Connect; except on E: EOleSysError do raise Exception.Create(Format('Error: %s %sCódigo: %x', [E.Message, #10#13, E.ErrorCode])); end; ...