Как чистить память. я - чайник :)

[delphi-proger]

Как сделать так, что бы через определенное кол-во num_loads, т.е. после определенного кол-ва переходов по ссылкам взятых из ViewPageLinks вся память чистилась и цикл продолжался дальше без мусора в памяти?

...
  TThread2 = class(TThread)
    U_EmbeddedWB: TEmbeddedWB;
    X1_EmbeddedWB: TEmbeddedWB;
    url1: string;
    link: string;
    num_loads: integer;
    tt1: tstringlist;
    tt0: tstringlist;
   private
   public
     constructor Create(url0:string; XEmbeddedWB:TEmbeddedWB); overload;
   protected
     procedure Execute; override;
     procedure ViewPageLinks;
     procedure Navigate;
  end;
...
constructor TThread2.Create(url0:string; XEmbeddedWB:TEmbeddedWB);
begin
  url1:=url0;
  Create(true);
  FreeOnTerminate := True;
  Priority := tpLower;
  X1_EmbeddedWB:=XEmbeddedWB;
  U_EmbeddedWB:=TEmbeddedWB.Create(XEmbeddedWB);
  U_EmbeddedWB.Parent:= XEmbeddedWB;
  U_EmbeddedWB.Visible:=true;
  U_EmbeddedWB.VisualEffects.Destroy;
  U_EmbeddedWB.DownloadOptions:=[DontExecuteActiveX, DontExecuteScripts, DontExecuteJava,
                       DontDownloadBehaviors, DontPerformClientPull];
  tt0:=TstringList.Create;
  Resume;
end;

procedure TThread2.Execute;
var
 i:integer;
 new_url:string;
begin
  while not terminated do
  begin
    U_EmbeddedWB.Navigate('http://'+url1);
    U_EmbeddedWB.WaitWhileBusy(10000);
    U_EmbeddedWB.Wait(10000);
    Synchronize(ViewPageLinks);
    if tt0.count > 1 then
    begin
      for i:=0 to tt0.Count-1 do
      begin
        link := tt0[i];
        Synchronize(Navigate);
        U_EmbeddedWB.WaitWhileBusy(10000);
        U_EmbeddedWB.Wait(10000);
        U_EmbeddedWB.ClearCache;
        U_EmbeddedWB.ClearTypedUrls;
        U_EmbeddedWB.ClearHistory;
        U_EmbeddedWB.DestroyComponents;
        if num_loads > 5 then
        begin

          // дальше всё рушится и вылазит ошибка

          U_EmbeddedWB.Destroy;
          U_EmbeddedWB:=TEmbeddedWB.Create(X1_EmbeddedWB);
          U_EmbeddedWB.Parent:= X1_EmbeddedWB;
        end;
      end;
    end;
  end;
end;

procedure TThread2.ViewPageLinks;
begin
  tt0.clear;
  U_EmbeddedWB.ViewPageLinksToStrings(tt0);
end;

procedure TThread2.Navigate;
begin
  num_loads:=num_loads+1;
  U_EmbeddedWB.Navigate(link);
end;