Avoiding rendezvous to delay starting of tasks

A common problem I encounter is that something needs to be done before task can start running. I've always solved that by using a Start entry on tasks and calling that entry when it is safe for them to start. Calling entries works fine but I'd like to think the following is a bit neater:
(declare_task_test.adb)
with Ada.Text_IO; -- Alex "ahab" Habeger -- Quick demonstration on declare blocks and tasks procedure Declare_Task_Test is task type Delaying_Task; task body Delaying_Task is begin for Index in 1..5 loop Ada.Text_IO.Put_Line("Delay " & Integer'Image(Index)); Delay (1.0); end loop; Ada.Text_IO.Put_Line("Done with loop"); end Delaying_Task; begin Ada.Text_IO.Put_Line("No task yet."); declare The_Task : Delaying_Task; begin Ada.Text_IO.Put_Line("In declare block."); end; Ada.Text_IO.Put_Line("Declare block ended."); end Declare_Task_Test;
Instead of delaying when the tasks start, delay when the tasks are declared.