не работает procedure

[korand]

пытаюсь запустить следующие процедуры:
TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
TForm1.button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
... , но они не работают.

Возможно, я неправильно объявляю процедуру:
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); в "Type"

Хотя работают такие процедуры как TForm1.Button1Click(Sender: TObject);

что же я делаю неправильно?

[Пепел Феникса]

начнем с того что это методы класса.
и запускать их надо так Form1.Image1MouseDown

Возможно, я неправильно объявляю процедуру:
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); в "Type"

Хотя работают такие процедуры как TForm1.Button1Click(Sender: TObject);

что за бред?
методы для событий обьявляются(реализация) так procedure TForm1.Edit3Click(Sender: TObject);
с указанием имени класса которому они принадлежат.
учите ООП

[korand]

объявляю так:

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

вот первая процедура работает, вторая-нет.

[Пепел Феникса]

а реализацию как пишите?

[korand]

procedure TForm1.button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
form1.label1.caption:='2';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Button1.caption:='1';
end;

в итоге наводим на кнопку-никакой реакции label-а, жмем-меняется caption кнопки.

[Пепел Феникса]

а в редакторе свойств вы поставили их на события?
или хотяб в ОнКрит присвойте их.

[korand]

я не знал про необходимость в этом, но понял о чем вы. выставил, все заработало, спасибо!

[W0LF]

{.. удалено автором ..}

[korand]

удалю, если скажете-как удалять темы.