OnInit

procedure TdmAsyncDemo.ThreadInit(Sender: TObject);
begin
  //create and initialize the object's extra data-packet.
  if assigned(Sender)
  and (Sender is TwhAsyncObject) then
  with pWebApp, TwhAsyncObject(Sender) do begin
    Data:=TThreadInput.Create;
    TThreadInput(Data).DosCmd:=Expand(waAsyncAction.HtmlParam);

    if BoolVar['AsUnHook'] then begin
      SetAsyncState(asStarted);
      TThreadInput(Data).Takeover(Response);
      end;

    //might just set the resultstring here and ignore the data object!
    ResultString:='';
    end;
end;