Komponente innerhalb eines Threads erstellen

[Angel4585]

was mich an dem ganzen gerade am meisten irritiert ist, das der Thread sich ja glich weider beendet oder täusch ich mich da?

Delphi-Quellcode:

  TTestThread = class(TThread)
    private
      FTimer : TTimer;
    public
      constructor Create;
      procedure Execute; override;
      procedure TestTimer(Sender : TObject);
    end;

.
.
.


{ TTestThread }

constructor TTestThread.Create;
begin                
inherited Create(False);
FreeOnTerminate:=True;
FTimer:=TTimer.Create(nil);
FTimer.Interval:=1000;
FTimer.OnTimer:=TestTimer;
FTimer.Enabled:=True;
end;

procedure TTestThread.Execute;
begin
while not Terminated do
  sleep(10);
end;

procedure TTestThread.TestTimer(Sender: TObject);
const f = 'C:\Testsl.txt';
begin
with TstringList.Create do
  try
    if Fileexists(f)then
      LoadFromFile(f);
    Add(DateTimeToStr(Now));
    SaveToFile(f);
  finally
    Free;
    end;
end;

Also das fuppt bei mir.. Er schreibt mir jede Menge in die Datei