OnDestroy

The worker object is about to be destroyed, so free the data object.

procedure TdmAsyncDemo.ThreadDestroy(Sender: TObject);
begin
  if assigned(Sender)
  and (Sender is TwhAsyncObject) then
  with TwhAsyncObject(Sender) do begin
    Data.Free;
    Data:=nil;
    end;
end;