1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.clientError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  case ErrorCode of
    10049: if (Switch < 5) then Inc(Switch) else // Wenn Fehler tritt auf und Switch kleiner als 5 Switch hochcounten (Nächste Addr.)
              if Switch = 5 then Switch := 0;  // Wenn Switch bei 5 angelangt wieder zum anfang der Liste (Switch = 0)

  end;
end;					

1:
2:
3:
4:
5:

try
     HierDeineAuszuprobierendenAnweisungen;
except
     MessageBox('Es ist leider ein Fehler aufgetreten',Form1.WindowHandle);
end;