Поток VCL компоненты

[Stilet]

А я бы так написал:

constructor TMyThread.Create(url_name: string; memo_name: TMemo);
begin
  inherited Create(false);
  url := url_name;
  memo := memo_name;
end;

procedure TMyThread.Execute;
begin
  ss := 'start loading from ' + url;
  synchronize(write);
  with Tidhttp.Create do begin
   HandleRedirects := true;
   RedirectMaximum := 10;
   try
    ss := Get(url);
   except
    on e:Exception do ss:='Ошибка получения страницы: '+e.Message;
   end;
   Free;
  end;
  synchronize(write)
end;

Это чтоб мусор не оставлять и заодно от лишнего поля избавится.