两个一样的问题，简单，白送分的问题！(20分)

如何获取网络出错信息？(Indy控件)，详细信息见如下相同的问题：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2528036
两个一样的问题，简单，白送分的问题！

procedure Tform.ClientSocketError(Sender: TObject;
Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
Application.MessageBox(PChar('网络连接失败!! ' + IntToStr(ErrorCode)), '提示', MB_OK + MB_ICONINFORMATION);
ErrorCode := 0;
end;

uses
IdStack;
var
ErrCode:Integer;
begin
try
IdTCPClient1.Connect(1000);
except
on E:Exceptiondo
begin
ErrCode:=GStack.WSGetLastError;
ShowMessage(SysErrorMessage(ErrCode));
end;
end;
end;

多人接受答案了。