Die Indys arbeiten viel mit Exceptions, GetLastError nützt da nicht viel.
Baue doch einfach in except forgendes ein:
Delphi-Quellcode:
uses
IdException;
//....
except
On E: EIdSocketError do
ShowMessage(IntToStr(E.LastError) + ': ' + E.Message);
On E: EIdProtocolReplyError do
ShowMessage(IntToStr(E.ReplyErrorCode) + ': ' + E.Message);
On E: EIdException do
ShowMessage(E.Message);
else
raise;
end;