Client disconnect Indy TCPClient geht nicht!

[Alterauge]

Hallo,
Client disconnect funktioniert nicht,
der client denkt weiterhin er ist connected - sprich jeder versuch
wieder zu connecten schlägt fehl... wenn ich den connect über einen
2ten button versuche, dann kommt die meldung das der client bereits
connected wäre - was er aber definitiv nicht ist!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 request, nl, content : string;
 i : integer;
begin
  Client.Connect;
   content := 'type=pocsag&address=1179001&flags=0&function=d&message=<SOH>35GOß3@y<ETB><NUL>L(ß<BRL>=el<ETX>l1P! #Ä<DC1>>In<ACK><DE';
      Memo1.Clear;
      nl := AnsiChar(#13) + AnsiChar(#10);
   request := 'POST /telegramin/alarmgeber/input.xml HTTP/1.1' + nl
   + 'Authorization: Basic FtgZhjhuUhjhHGHgh=' + nl
   + 'Content-Type: application/x-www-form-urlencoded' + nl
   + 'Host: test.delphi.info' + nl
   + 'Content-Length: ' + IntToStr(length(content)) + nl
   + 'Expect: 100-continue' + nl
   + 'Connection: Keep-Alive'+ nl + nl
   + content;
 Client.IOHandler.WriteLn(request);
  for I := 1 to 20 do
   Memo1.Lines.Add(Client.IOHandler.ReadLn);
    Client.Disconnect;
 end;

[mjustin]

Zitat von Alterauge:

wenn ich den connect über einen
2ten button versuche, dann kommt die meldung das der client bereits
connected wäre

Was heist "2ten button", ist damit ein zweiten Klick auf den gleichen Button gemeint?

Wie lautet die Meldung genau?

Was sagt netstat oder TCPView über den Status des Sockets?