OnFinish

This event is called from a thread when an object becomes 'Done.' The TwhAsyncObject stays, but we need to call the Finished method to close and free the output.

procedure TdmAsyncDemo.ThreadFinish(Sender: TObject);
begin
  if assigned(Sender)
  and (Sender is TwhAsyncObject) then
  with TwhAsyncObject(Sender) do begin
    if (data<>nil)
    and (data is TThreadInput) then
      TThreadInput(Data).Finished(ResultString);
    end;
end;