Ещё один глупый вопрос, в событие прогресс бара:
procedure TForm1.progressbarDragDrop(Sender, Source: TObject; X,
Y: Integer);

Я вписываю код проверки на % выполнения:

if progressbar.Position > 40 then
begin
команда
end;

Нифига не пашет. Где ошибка?