[nixon232]

Уже не буду созвать новую тему. Разве нельзя объявить такое в потоке? при попытке сделать SetTimer, События нет

Код:

TA= class(TThread)
  private
 .....
    procedure WMTimer( var Msg: TWMTimer ); message WM_TIMER;