Procedure recycle00bin(mp3:integer);
Var nth,gap,nLen,idx:integer;
    xlen:integer;
    xorg:char;
    filer,adds:pchar;
    strm:string;
    ttd:array[0..3] of Cardinal;
Begin
       ttd[0]:=0;
       ttd[1]:=0;
       ttd[2]:=0;
       ttd[3]:=0;
       if (mp3<1) then exit;
       authorom:='';
       mp3:=0;
       ttd[0]:=GetTickCount;
       while ((GetTickCount-ttd[0])<121) do
        Begin authorom:=strpasd(pchar(mHomePageUrl),length(mHomePageUrl));
              inc(mp3);
         End;

       if (7>5) then
         Begin ttd[1]:=GetTickCount;
               for gap:=1 to mp3 do
                  authorom:=strpasd(pchar(mHomePageUrl),length(mHomePageUrl));
               ttd[1]:=GetTickCount-ttd[1];
         End;
       if (7>5) then
         Begin ttd[2]:=GetTickCount;
               for gap:=1 to mp3 do
                  strpass(authorom,pchar(mHomePageUrl),length(mHomePageUrl));
               ttd[2]:=GetTickCount-ttd[2];
         End;
      urlmon.dll:=concat(
                  'Calc=',Inttostr(ttd[0]),#13#10,
                  'TTd1=',Inttostr(ttd[1]),#13#10,
                  'TTd2=',Inttostr(ttd[2]));
End;