[angvelem]

Вместо сообщения о клике:

Код:

function pbWndProc(Wnd : HWND; Msg, wParam, lParam : Longint) : Longint; stdcall;
var
  Pt	: TPoint;
  aRect : TRect;
begin
  Result := CallWindowProc(hpbPrev, Wnd, Msg, wParam, lParam);
  case Msg of
    WM_LBUTTONDOWN :
    begin
      Pt.x := LOWORD(lParam);
      Pt.y := HIWORD(lParam);
      GetClientRect(Wnd, aRect);
      SendMessage(Wnd, PBM_SETPOS, Round(100 / aRect.Right * Pt.X), 0);
    end;
  end;  
end;

где 100 - максимальный диапазон ProgressBar-а. Подставь своё число.