Вопрос про вызов процедур в delphi

Нужно чтобы процедура:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Drawing:=true;
mousepos1:=point(x,y);
mousepos2:=mousepos1;
X1:=x;
y1:=y;
image1.Canvas.MoveTo(x,y);
end;

вызывалась после условия:
if activetool= ttlomline then {и тут вызывается процедура выше}
Помогите кодом

Сам разобрался, вас не дождешься