Реализовать слежение за процессом в потоке Tthread

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

Всем доброго времени суток!

Интересует вопрос реализации таймера в потоке TThread.

Мой поток TThread, по средству CreateProcces запускает программу. Необходимо чтобs поток продолжал следить за ней и считывал постоянно данные. К примеру в настройках программы сказано? что программа будет завершена во столько-то, после этих условий поток запускается и запускает программу, и в течении всей работы программы(За которой следит) сверяет заданное ранее время с системным, если заданное время совпадает с системным то поток закрывает процесс и самоуничтожается.

Как такое реализовать?

[Johnson]

в описании класса птомка потока заяви таймер....

TNweThread = class (TThread)
private
Timer:=TTimer;
procedure TimerEvent(Sender:TObject);
public
constructor Create; override;
protected 
// и так далее....

Constructor TNewThread.Create;
inherited;
Timer:=TTimer.Create(nil);
Timer.interval:=100;
Timer.onTimer:=TimerEvent;
Timer.Enabled:=true;
end;
procedure TNewThread.TimerEvent(Sender:TObject);
/// то что надо - например опрос запущеного процесса
end;

писал по памяти и второпях, за ошибки прошу не пинать...

[Stilet]

Поправлю слегка:

private
Timer:TTimer;

[Johnson]

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

[Пепел Феникса]

вообще я думаю те стоит глянуть в сторону Jobs, ибо помоему к ним дело и идет.