procedure AThread.DoRun;
begin
Lock;
try
DoSomething;
finally
UnLock;
end;
end;

procedure AThread.Destroy;
begin
Lock;
try

...
...
...

inherited;
finally
Unlock;
end;
end;