Problem mit Indy (Not Connected)

[Bubblegun]

Hi

Ich schreibe momentan an einem Chat. Mein Problem ist, dass ich einen
Fehler bekomme sobald ich Disconnecte.
TCPClient meldet dann "Not Connected". Je länger ich mit dem Disconnect
warte desto mehr geht das Programm in den Timer desto mehr "Not Connected"
fehler werden angezeigt.

Delphi-Quellcode:

procedure TClientForm.TCPClientConnected(Sender: TObject);
begin
  Messages.Lines.Add('Connected to '+ TCPClient.Host);
  TCPClient.WriteLn(ClientName);
  TBConnect.Down := True;
  TBConnect.Hint := 'Disconnect from Server';
  Timer.Enabled := True;
end;

Delphi-Quellcode:

procedure TClientForm.TimerTimer(Sender: TObject);
var
  Msg     : String;
begin    
  if TCPCLient.Connected = True then begin
    Msg := TCPClient.ReadLn('', 5);
    if Msg <> '' then begin
      if Msg[1] <> '@' then begin
        Messages.Lines.Add(Msg);
      end;
    end;
  end;
end;

Delphi-Quellcode:

procedure TClientForm.TCPClientDisconnected(Sender: TObject);
begin
  Timer.Enabled := False;
  Messages.Lines.Add('Connection closed');
  TBConnect.Hint := 'Connect to Server';
end;

(Dies sind nur einige(Wichtige?) ausschnitte aus dem Programm)

Ich hoffe ihr könnt mir helfen denn ich bin mit meinem Latein am ende.


Mfg