Indy - Abbrechen von ReadLn in TIdThreadComponent

[Gruber_Hans_12345]

Delphi-Quellcode:

procedure TForm1.IdThreadComponent1Run(Sender: TIdThreadComponent);
begin
    Sender.Synchronize(StatusConnected);

    try
        IdTCPClient1.IOHandler.ReadLn;
    except
    end;
    Sender.Synchronize(StatusDisConnected);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
    IdThreadComponent1.Start;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
    IdThreadComponent1.Stop;
    IdTCPClient1.Disconnect;
end;
procedure TForm1.IdThreadComponent1BeforeRun(Sender: TIdThreadComponent);
begin
    IdTCPClient1.Connect('localhost', 6525);
end;

procedure TForm1.IdThreadComponent1AfterRun(Sender: TIdThreadComponent);
begin
    IdTCPClient1.Disconnect;
end;

per Button4 wird der Thread gestartet und mit Button5 wieder gestoppt (der Server bekommt ne Exception Disconnect, aber das wird ja gewollt sein so)

oder gibt es da noch andere sachen zu beachten ?