indy 10 TCpClient + Thread

[1aa]

Ich habe einen Thread welcher sämtliche Sende Und empfangs aufgaben erledigen soll:

Delphi-Quellcode:

TEvent = procedure of Object;

  tLeseThread = class(TThread)
    private
      fReadData : TEvent;
      fWriteData : TEvent;
      fDeleteData : TEvent;
    public
      procedure Execute; override;
      property ReadData : TEvent read fReadData write fReadData; 
      property WriteData : TEvent read fWriteData write fWriteData; 
      property DeleteData : TEvent read fDeleteData write fDeleteData; 
  end;
...

procedure tLeseThread.Execute;
begin
 while NOT(Terminated) do
   Begin
     if Not(Terminated) then if Assigned(fWriteData) then fWriteData;
     if Not(Terminated) then if Assigned(fReadData) then (fReadData);
     if Not(Terminated) then if Assigned(fDeleteData) then fDeleteData;
   End;
end;

senden klappt auch super nur beim Lesen schmiert der thread nach dem 1. read timeout ab.... weis einer woran das leigen könnte?