[NumLock]

Сообщение от Неподарок

А если попробывать так?

Код:

type
   TMyThread = class(TThread)
   private
     { Private declarations }
   protected
     procedure DoWork;
     procedure Execute; override;
   end;

 implementation

 procedure TMyThread.Execute;
 begin
   while not Terminated do
     Synchronize(DoWork);
 end;

 procedure TMyThread.DoWork;
 begin
   //Получаем данные
 end;

смысл потока тогда?)