يه تابع داشتي به فرم

function UpdateProgress(ProgressBar: TWinControl; Position: Integer)
موقع به روز کردن موقعيت هم
SendMessage(ProgressBar.Handle, PBM_SETPOS, Position, 0)
اينو عوضش کردم حالا ديگه پارامتر ProgressBar بي اثره.