создаю поток
 fMailThread:=TSimpleThread.Create(True);
 fMailThread.Priority:=tpLower;
 fMailThread.FreeOnTerminate:=False;
 fMailThread.Delay:=1000;
 fMailThread.OnAction:=MailSender;

потом вызываю 
fMailThread.Resume

все работает - отрабатывается код
procedure TSimpleThread.Execute;
begin
  Sleep(Delay);
  Action;
end;

потом хочу еще раз
fMailThread.Resume
и ничего.
хотя fMailThread.Suspended=True

Добавлено через 13 минут и 38 секунд
переделал функционал на создание потока каждый раз когда его надо вызвать 

 Result:=True;

 try
 fMailThread:=TSimpleThread.Create(True);
 fMailThread.Priority:=tpLower;
 fMailThread.FreeOnTerminate:=True;
 fMailThread.Delay:=1000;
 fMailThread.OnAction:=MailSender;
 fMailThread.Resume;
 except
  Result:=False;
 end;

так работает.

Потому что созданного Windows-потока уже не существует. Он прекратил существование, когда произошел выход из Execute. Остался только экземпляр класса, обслуживавший этот поток ("обертка" над Windows-потоком), т.е. непосредственно fMailThread.

И это один из вариантов правильного решения.

Это сообщение отредактировал(а) kami - 11.6.2010, 12:34