TEvent.free im Thread Destructor?

[Mavarik]

Hallo Zusammen.

Gegeben sei ein Thread der ein MyEvent := TEvent... handle hat.

Delphi-Quellcode:

Procedure TMyThread.Execute;
begin
  While not Terminated do
   begin
     MyEvent.WaitFor(infinite);
     if not(Terminated) then
       begin
         // Mach was schlaues... 
       end;
   end;
end;

Destructor TMyThread.destroy;
begin
  Terminate;
  MyEvent.SetEvent;
  MyEvent.Free;      // Gut oder schlecht???
  Inherited;
end;

Mavarik