[Rikki-Tikki]

Здравствуйте! у меня форма, на которой расположена панель, под ней - TImage.
Я хочу, чтобы Tlabel на панели выводил координату Х двигающегося по имеджу курсора.
для этого я на Timage написала:

Код:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label4.caption:=inttostr(x);
end;

Но он выводит 2 числа при движении по этому Tlabel
а при движению в области рисунка не меняет Tlabel.caption(

Подскажите, пожалуйста, в чем может быть причина?