Проблемы с потоками(Thread)

[unmazable]

Создаю в потоке компонент, например TTimer

 
  TTimerThread = class(TThread)
    procedure onTimerT(Sender: TObject);
  private
    Tim:TTimer;
  protected
    procedure Execute; override;
  end;

в процедуре onTimerT пишу

procedure TTimerThread.onTimerT(Sender: TObject);
begin
 form1.Memo1.Lines.Add('asdsd')
end;

Пробовал запись в файл,все равно не получается
На Execute

procedure TTimerThread.Execute;
begin
  Tim:=TTimer.Create(nil);//создаем компонент
  tim.OnTimer := onTimerT;//подключаем нашу процедуру
  Tim.Interval:=1000;//выставляем интервал
  Tim.Enabled :=true;//запускаем таймер
end;

потом по батону запускаю поток

procedure TForm1.btn1Click(Sender: TObject);
begin
  Proc := TTimerThread.Create(true);
  Proc.Priority := tpLowest;
  Proc.Resume;
end;

если все тоже самое делаю без потока , то процедура onTimerT обрабатывается, как я понимаю поток завершается не дожидаясь ивента. Как сделать так что бы поток завершался только при закрытии формы или при вызове функции/процедуры?

[Человек_Борща]

Поток не зависимо от вас работает. На то это и поток. Ели ему нечего делать в execute, то поток отмирает.

Проверять на управл. событие с формы можно так:

if terminated then exit

НО это будет работать, пока поток жив и поток не зависит от этого. Например в потоке некий цикл, из которого надобы выйти в случае завершения программы.

Вместо TTimer используйте мульмедийный таймер.

[unmazable]

мне TTimer или мульмедийный таймер не нужны.
Смысл в том что если в потоке создавать компонент, к нему цеплять какойнить ивент, то поток завершается выполнив все в Execute , хотя у компонента есть ивент, и этот ивент еще не сработал...

[Slym]

1. поток живет в Execute
2. Таймер без обработки сообщений не сработает

зацикливай в Execute обработку сообщений

procedure TTimerThread.Execute;
begin
  Tim:=TTimer.Create(nil);//создаем компонент
  tim.OnTimer := onTimerT;//подключаем нашу процедуру
  Tim.Interval:=1000;//выставляем интервал
  Tim.Enabled :=true;//запускаем таймер
while not Terminated do
begin
   GetMessage(...)
  DispatchMessage(...)
end;
Tim.Free;

end;

[unmazable]

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

1. поток живет в Execute
2. Таймер без обработки сообщений не сработает

зацикливай в Execute обработку сообщений

procedure TTimerThread.Execute;
begin
  Tim:=TTimer.Create(nil);//создаем компонент
  tim.OnTimer := onTimerT;//подключаем нашу процедуру
  Tim.Interval:=1000;//выставляем интервал
  Tim.Enabled :=true;//запускаем таймер
while not Terminated do
begin
   GetMessage(...)
  DispatchMessage(...)
end;
Tim.Free;

end;

Спасибо, заработало. Буду развлекаться