Error Message.

Det betyder at der er sket en fejl i din socket forbindelse, kan være mange ting.

Prøv at smide dette i din Sockets OnError:

  if (ErrorEvent = eeGeneral) then begin
        Status ('Socket Error Occured: '+IntTOStr(ErrorCode));
  end else
  if (ErrorEvent = eeSend) then begin
        Status ('Socket Error Occured: '+IntTOStr(ErrorCode)+' - An error occurred when trying to Send.');
  end else
  if (ErrorEvent = eeReceive) then begin
        Status ('Socket Error Occured: '+IntTOStr(ErrorCode)+' - An error occurred when trying to Receive.');
  end else
  if (ErrorEvent = eeConnect) then begin
        Status ('Socket Error Occured: '+IntTOStr(ErrorCode)+' - A connection request that was already accepted could not be completed.');
  end else
  if (ErrorEvent = eeDisconnect) then begin
        Status ('Socket Error Occured: '+IntTOStr(ErrorCode)+' - An error occurred when trying to close a connection.');
  end else
  if (ErrorEvent = eeAccept) then begin
        Status ('Socket Error Occured: '+IntTOStr(ErrorCode)+' - A problem occurred when trying to accept a client connection request.');
  end else begin
        Status ('Socket Error Occured: '+IntTOStr(ErrorCode));
  end;
ErrorCode := 0;
---------------------

Det stopper den besked der kommer op og udskriver fejlen lidt pænere.

Status(S : String) er en procedure jeg har lavet for at gøre det lettere for mig at skrive en linie ud i en memo (Memo1.Lines.add();)

Der skal ikke deklareres nogle variabler i din OnError, dem du ser i det stykke kode er overført som parametre.