Листинг 2

procedure Init; 
begin 
  // Выполняет какую-то работу; 
end; 
  
begin 
  InitProc := @Init; 
  Application.Initialize; // Обращение к Init 
  Application.CreateForm(TForm1, Form1); 
  Application.Run; 
end.