with import_rtf.Create(True) do
   begin
    FreeOnTerminate := True;
    Priority := tpIdle;
    Resume;
   end;