Передать TStrings создаваемому потоку

[Shouldercannon]

Доброго времени суток!
Помогите, пожалуйста, передать TString создаваемому потоку.
Имеется

...
procedure DownloadFiles(Files: TStrings);
...
type
  // Поток для загрузки обновляющих файлов
  TDownloadFiles_Thread = class(TThread)
  private
    { Private declarations }
    URL: string;
    B: Boolean;
    SL: TStringList;
  protected
    procedure Execute; override;
    procedure SyncProc;
  public
  end;
...
procedure TFormUpdate.DownloadFiles(Files: TStrings);
begin
  DownloadFiles_Thread := TDownloadFiles_Thread.Create(True);
  DownloadFiles_Thread.URL := URL;
  DownloadFiles_Thread.SL.Text := Files.Text; <-- обращение к несуществующему объекту
  DownloadFiles_Thread.FreeOnTerminate := True;
  DownloadFiles_Thread.Resume;
end;
...
procedure TDownloadFiles_Thread.Execute;
begin
  SL := TStringList.Create;
...
end;

[Аватар]

В конструкторе потока создайте стринглист
В деструкторе уничтожте
Сделайте public свойство типа TStringList
В ридере свойства просто возвращайте стринлист
В врайтере свойства ASSIGN-ом стринглиста загружайте

Вариант попроще - переопределить конструктор с передачей в качестве параметра существующий стринглист

[FaTaL]

Так он же у тебя не существует, а только объявлен.

[Shouldercannon]

Типа того

  DownloadFiles_Thread := TDownloadFiles_Thread.Create(True);
  DownloadFiles_Thread.URL := URL;
  DownloadFiles_Thread.SL := TStringList.Create;
  DownloadFiles_Thread.SL.Text := Files.Text;
  DownloadFiles_Thread.FreeOnTerminate := True;
  DownloadFiles_Thread.Resume;

[Аватар]

DownloadFiles_Thread.SL := TStringList.Create;

Это по индусски

[FaTaL]

Это по индусски

За то походу работает

[Shouldercannon]

Конечно работает