Из потока прочитать созданный в программе объект.

[DIgorevich]

Извиняюсь, если заголовок не совсем адекватен...
Суть такова. В программе объявлена переменная типа TStringList. По OnCreate ее создаю, по OnDestroy освобождаю. Далее создаю поток, который должен работать с этой переменной, но компилятор выдает ошибку, мол, не знаю такую переменную. Вот код:

  TNewThread = class(TThread)
  private
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
  end;

var
  Form1: TForm1;
  PathList,TempList:TStringList;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  PathList:=TStringList.Create;
  TempList:=TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  PathList.Free;
  TempList.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 TNewThread.Create(false);
end;

{ TNewThread }

constructor TNewThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);

end;

procedure TNewThread.Execute;
begin
    inherited;
  Form1.templist.Assign(Form1.MyList.Items);
  Exit;
end;

В выделенном месте ошибка. Помогите, пожалуйста, разобраться.

[Serge_Bliznykov]

переменные PathList,TempList:TStringList;
описаны как VAR и не имеют никакого отношения к форме Form1
так что, правильно ругается! и потоки здесь не при чём (в любом месте так будет ругаться)
Уберите Form1.

[Stilet]

... Или перенеси эти переменные в класс формы. Можно даже в секцию Private

[DIgorevich]

Stilet, пытался - не помогало.
Serge_Bliznykov, спасибо! Действительно, что-то я заплутал....

Вопрос закрыт.