Изменение Gauge через Windows API (PostMessage)

Подскажите, пожалуйста, наименование WM сообщения, через которое можно обратиться к компоненту “Gauge” (чтоб менять свойство «Progress», используя PostMessage), управлять Gauge я буду из потока.

Вот, например, на одном из сайтов нашел похожую рабочую штуку, но не знаю, насколько эта реализация правильная:

Модуль, в котором выполняется поток:

  const
   MY_MESS = WM_USER + 100;

 procedure ThProcFile.Execute;
 var  
   LCount: integer;  
 begin  
 …
 while PrCount - LCount >= BlockSize do
     begin
       PrSourseStream.Read(LBuffer, BlockSize);
       EncipherBlock(LBuffer);
       PrDestStream.Write(LBuffer, BlockSize);
       Inc(LCount, BlockSize);
        PostMessage(Application.MainForm.Handle, MY_MESS, 1, LCount);
 …
     end;
 end;

Модуль основного окна:

 public
     procedure MyProgress(var msg: TMessage); message MY_MESS;
   end;
 ….
 procedure TFMain.MyProgress(var msg: TMessage);
 begin
   Gauge1.Progress := msg.LParam;
 end;

Спасибо.

P.S. "Synchronize" - тормозит поток в 2 раза.