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;