paramdata := TEtwas.Create; // Parameter für den Task. Werden am Ende gelöscht.

     TTask.Run( procedure
     var local : Integer;
     begin
       
        try
            // To was ...


            // Uebergib das Ergebnis an das Programm
            TThread.Synchronize( nil,
              procedure
              begin
                Memo1.Text := 'Bin Fertig';
              end
               );
        finally
           paramdata.Free;
        end;
     end
   );