Как правильно передать class в поток

[tarakan1983]

Здравствуйте. Подскажите как правильно передать class в поток.
У меня есть class

type
  TFirstClass = class
    fID : Integer;
    fNAME : string;
  end;

Есть поток

type
  TmyTheard = class(TThread)
    procedure Execute; override;
    procedure SetFirstClassToLabel;
    private
       fFirstClass : TFirstClass;
       TS : TStringList;
    public
      constructor Create(CreateSuspennded: Boolean; aFirstClass : TFirstClass);
  end;

я создаю class, передаю его в поток и затем освобождаю память

procedure TForm1.Button1Click(Sender: TObject);
  var
    FirstClass : TFirstClass;
Begin
  //Создаю
  FirstClass := TFirstClass.Create;
  FirstClass.fID := 1;
  FirstClass.fNAME := 'Привет мир!';
//Передаю в поток
  with TmyTheard.Create(True,FirstClass) do
    begin
      Priority := tpNormal;
      FreeOnTerminate := True;
      Resume;
    end;
//Освобождаю
  FirstClass.Free;
end;

Но в потке переменных этого класса уже не существует.
Подскажите как правильно в поток передать class?

[evg_m]

https://www.programmersforum.ru/showthread.php?t=325843
#2

[tarakan1983]

Сообщение от evg_m

https://www.programmersforum.ru/showthread.php?t=325843
#2

Спасибо за ответ. Я в принципе так и думал, но думал, что может есть какое-то "изящное" решение... при котором можно не дублировать ссылку на объект а пересоздать одной какой-то командой.

[evg_m]

что может есть какое-то "изящное" решение...

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