Не работает обработчик события FormMouseDown?

[Кронос]

procedure TForm2.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if i=1 then
  begin
   //код
 end;
i:=0
end;

procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 i:=1;
end;

Почему не работает обработчик события FormMouseUp?

[xwicked]

Попробуйте поставить точки прерывания на обеих событиях, т.к. всё должно работать.
И нельзя ли заменить на FormOnClick?

[Кронос]

Заменить нельзя, т.к. на канвве при нажатии должна начаться растягиваться рамка, а при отпускании прекращаться.

[xwicked]

Сообщение от Кронос

Заменить нельзя, т.к. на канвве при нажатии должна начаться растягиваться рамка, а при отпускании прекращаться.

Точки прерывания ставили? Заходят в обработчики или нет?
Может обработать надо события канвы? Подробнее опишите ситуацию.