как запустить поток второй раз

[Dеlphi]

ясно. спасибо всем

[Shamr]

Как бы все правы. И я придумал, как выйти из указанного положения.
Надо было создать таймер. Свой собственный, для применения не в потоке, а в своих компонентах.
Добавил поле Stopped. Которое останавливало таймер без применения процедуры таймера.
Естественно я не занимался не нужными мне вещами. Если метод Stop запустить ДО метода Go, то метод Go сразу вызовет процедуру таймера.
Но у меня так и планировалось .

interface
type
TOunTimer = class(TThread)
Private
T : TDateTime;
FOnTimer : TNotifyEvent;
FInterval : Integer;
Stopped : Boolean;
Public
Constructor Create(OnTimer : TNotifyEvent);
Destructor Destroy; override;
Procedure Execute; Override;
Procedure Go;
Procedure Stop;
Property Interval : Integer read FInterval Write FInterval;
end;


implementation

constructor TOunTimer.Create(OnTimer : TNotifyEvent);
begin
inherited Create(true);
Stopped := False;
FOnTimer := OnTimer;
end;

destructor TOunTimer.Destroy;
begin
inherited;
end;

procedure TOunTimer.Execute;
begin
While Not(Terminated) Do
Begin
While (Now < T + Interval / 24 / 3600000) And Not(Self.Stopped) Do
Sleep(1);
If Not(Stopped) Then
Begin
If Assigned(Self.FOnTimer) Then FOnTimer(nil);
End;
Stopped := False;
Self.Suspend;
End;
end;

procedure TOunTimer.Go;
begin
T := Now;
Self.Resume;
//Start;
end;

procedure TOunTimer.Stop;
begin
Stopped := True;
end;

end.