program Project1;



uses Windows, Classes;



type

  TMyThread = class(TThread)

  protected

    procedure Execute; override;

  end;



{ TMyThread }



procedure TMyThread.Execute;

begin

  Sleep(3000); // {do something}

end;



{ MAIN }



begin

   with TMyThread.Create(False) do

   begin

     FreeOnTerminate := True;

     WaitFor;

   end;

end.