Как сделать в процедуре Event?

[Pcrepair]

Добрый день. Есть модуль(упрощенно):

unit uHtmlPageLoader;
interface
uses StrUtils,SysUtils, idHTTP,IdSSL, IdSSLOpenSSL,Dialogs,
     IdCompressorZLib,Classes,Windows;

     procedure HtmlPageLoader(AUrl,Search:string; Trth1,Trth2:integer);

implementation
uses uMainUnit,ShellAPI; 

procedure HtmlPageLoader(AUrl,Search:string; Trth1,Trth2:integer);
var
HtmlPage,          
ConvertHtmlPage,   
UrlsOut            
:string;
Rating:integer;    
begin
  (*----Получение результа---------------------------------*)
  HtmlPage:=DelTegs(LoadHtmlPage(AUrl));  
  UrlsOut:=GetUrls(HtmlPage,AUrl,Search,Trth2);  
  ConvertHtmlPage:= DelTrash(TegExch2(TegExch1(HtmlPage)), AUrl,Search,Trth1); 
  Rating:=Rate(ConvertHtmlPage,Search); 
  (*--------------------------------------------------------*)

  (*-----Асинхронная передача результата работы процедуры---*)
  if (Rating > 5) then  
     begin  
       gRate:=Rating; (*это ГлобПерем*)
       gUrl:=AUrl;
       gPageUrls:=UrlsOut;
       (*вот тут нужно инициировать процедуру Restore в другом модуле 
         для обработки результатов*)
     end
     else Exit; (*иначе выход из процедуры без передачи результата*)
end;

Если бы это был объект то у него могли бы быть события. но делать класс пока еще рано
Вопрос: как вообще можно передать сигнал в другую процедуру Restore о том что пора обработать данные. можно конечно
таймер приделать, но нежелательно. В самой процедуре HtmlPageLoader вызывать код процедуры Restore тоже нельзя, этот
загрузчик будет запускаться в потоке(несколько HtmlPageLoader одновременно) и оне будут асинхронно передавать результаты в
в процедуру Restore для обработки.

[Человек_Борща]

Самое время делать класс

[evg_m]

в Delphi есть понятие процедурный тип.

TeventProc =procedure(eventval: string);

Система событий которую в не хотите применять основана на его развитии (объектный процедурный тип)

TNotifyevent =procedure(sender: TObject)  of object;
TeventProc =procedure(eventval: string) of object;

передать в процедуру свою процедуру "callBackproc".

TeventProc =procedure(eventval: string);

procedure proc(par1: integer;  eventproc: TEventProc);
begin
  for j:=1 to par1 do
    eventproc(inttostr(j));
end;

procedure Event(eventval: string);

proc(10, Event);

[s-andriano]

Обычно, чтобы процедура обработала данные, ее просто вызывают. Чем Вас этот метод не устраивает?

[Pcrepair]

уже всем устраивает
просто предполагалась что есть иной способ, ну чтоб попробовать, расширить кругозор.