How to terminate the thread correctly?

[taazz]

You do know that FThread.Free does check that FThread is not nil,

to late, if the FThread is nill calling free should raise a GPF exception, there is no way to allow your app to access address 0.

Why? It simply calls TObject.Free:

Code: Pascal  [Select][+][-]

1.  procedure TObject.Free;
2.  begin // the call via self avoids a warning
3.     if self <> nil then self.destroy;
4. end;
5.  

if the FThread is nill calling free should raise a GPF exception, there is no way to allow your app to access address 0.

TObject(nil).Free; 

I know how it works I'm just demonstrating my debugging logic, it has helped me a lot to avoid pitfalls. Keep on doing your thing and I'll stick to mine.