[galaxystar]

Сообщение от AleD

попробуй так

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Thread1.Priority := TThreadPriority(TrackBar1.Position); //max и min от 0 до 6
end;

не помогло.
решил другим путем
Спасибо, за столь активное участие