SocketClient disconnect

[strom]

Hallo,
wieso bekomme ich immer eine Fehlermeldung: Asynchroner Socket-Fehler 10049
Möchte die Verbindung sauber trennen! "ClientSocket.Active := false;

Delphi-Quellcode:

procedure TForm1.SendTimer(Sender: TObject);
 var
  s:   String;
begin
 if Memo7.Lines[0] <>'' then
 begin
    ClientSocket.Active := true;
 try
     ClientSocket.Open;
      s := String.Format('<event>'#10'<address>%s</address>'#10'<message>%s</message>'#10'</event>',[Memo7.Lines[0],Memo8.Lines[0]]);
       ClientSocket.Socket.SendText(s);
     finally
      ClientSocket.Close;
       ClientSocket.Active := false;
       Memo7.Lines.Delete(0);
        Memo8.Lines.Delete(0);
 end;
end;