как правильно создавать объекты в потоке?

[Pcrepair]

Добрый день. есть код, который:
- создает поток TLoader
- в потоке создает объекты TIdHTTP, TIdSSLIOHandlerSocketOpenSSL, TIdCompressorZLib, TMemoryStream (для загрузки страницы)
можно создавать все эти объеты в конструкторе и уничтожать в деструкторе и использовать в загрузчике:

type
  TLoader = class(TThread) (*создаем свой класс на базе ПОТОК*)
  private
     FUrl:string;  
     FText:string; 
     FIdHttp:TidHTTP;
     FSSL:TIdSSLIOHandlerSocketOpenSSL;
     FCompressZLib:TIdCompressorZLib;
     FStream:TMemoryStream;
  protected 
     function LoadURL(const Url: String): string;(*загрузчик страницы: кодировка; удаление скриптов*)
     function LoadHtmlPage(const Url:string):string;   (*закачка простых фреймов, использует LoadURL*)
.....................................
constructor TLoader.Create(const Str,Text:string);
begin
  inherited Create(False); (*Поток создаем в состоянии ЗАПУСК*)
  FIdHttp := TIdHTTP.Create(nil);
  FSSL := TIdSSLIOHandlerSocketOpenSSL.Create;
  FCompressZLib:=TIdCompressorZLib.Create(FIdHttp);
  FStream:=TMemoryStream.Create;
  FreeOnTerminate := True; (* Поток освободит ресурсы при окончании работы*)
  Self.Priority := tpNormal;
  FUrl:=Str; 
  FText:=Text;
end;
..................................
function TLoader.LoadURL(const Url: String):string;
begin
   FIdHttp.IOHandler:=FSSL;
   FIdHttp.Compressor:=FCompressZLib;
   FIdHttp.Get(Url, FStream);
end; (*очень упрощенная версия кода*)

Однако метод LoadURL при загрузке страниц на ФРЕЙМ может вызывться (в выше стоящей функции LoadHtmlPage) многократно

Вопрос: правильно ли создавать объекты в конструкторе или надо перенести их создание в метод LoadURL , с точки зрения правильного кодирования

function TLoader.LoadURL(const Url: String):string;
begin
FIdHttp := TIdHTTP.Create(nil);
FStream := TMemoryStream.Create;
SSL:=TIdSSLIOHandlerSocketOpenSSL.Create;
CompressZLib:=TIdCompressorZLib.Create(FIdHttp);

   FIdHttp.IOHandler:=FSSL;
   FIdHttp.Compressor:=FCompressZLib;
   FIdHttp.Get(Url, FStream);

FreeAndNil(FStream);
FreeAndNil(SSL);
FreeAndNil(CompressZLib);
FreeAndNil(FIdHttp);
end; (*очень упрощенная версия кода*)

[evg_m]

Так же как и в любом другом объекте никакой разницы.
главное
1. любой объект до использования должен быть создан.
2. для исключения утечек памяти любой созданный объект к моменту потери доступа к нему (к моменту разрушения внешнего объекта/ к моменту выхода из процедуры) должен быть разрушен. можно и не соблюдать если предполагается использование вне.

пара Create Destroy позволяет программисту(не программе) лучше(удобнее) контролировать приведенные требования. и не загромождать основной код своих функций.

procedure Tx.LoadHTMLPage(..);
begin
  CreateMyOBj; //аналог Сreate

  ....... //главный код процедуры

  FreeMyObj; //аналог Destroy;
end;

C т.з. "правильного" кодинга. (ЗА для Сreate Destroy)
любой блок операторов который требует своего пояснения как единого целого явлется кандидатом на выделения в отдельную функцию. с названием комментирующим (поясняющим) выполняемые действия.
CreateMyObj; // создание внутренних объектов
DestroyMyObj; //удаление внутренних объектов
Если для этого уже предусмотрены функции Create; Destroy; то почему бы ими не воспользоваться.

C т.з. "правильного" кодинга. (ЗА локальные объекты)
Чем ниже область видимости тем лучше
(высокая видимость)public ->protected->private ->Local variable (самая низкая видимость)
Если объект создается,использутся и уничтожается исключительно в одной функции то он должен быть локальным.(Local variable) самая низкая видимость.
function Tx.LoadHTML;
var
HTML: TIdHTML;
...
begin

выделение функций создания(разрущения) внутренних объектов приводит к облегчению кода, но требует перемещения объектов в новую область видимости (private) что повышает уровень видимости (доступности).

Любая программа есть компромисс между скоростью написания, надежностью, читабельностью (восприятие кода человеком), простотой модификации (включая анализ кода), быстродействием и чем-то еще.

[Pcrepair]

спасибо за разъяснение, будем пробовать