Undefinierter Bezeichner: ESocketError

[mr2]

dann musst Du statt
  on E: ESocketError do ShowMessage(E.Message); einfach

Delphi-Quellcode:

  on E: EIdSocketError do begin
    if (E.ErrorCode = 11004)
    then ShowMessage(E.Message)
    else raise;
  end;

schreiben

mr2