[lecram]

1)как сделать, чтобы при невидимом label1, при наведении курсором он появлялся и исчезал соответственно при снятии курсора
2)код для кнопки с картинкой, которая при наведении меняется.
image1 - незаданый идентификатор. как его указать правильно?

Код:

procedure TForm1.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

   if (X>=image1.Left))and(Y>=image1.Top)and(X<=image1.Left+image1.Width)and(Y<=image1.Top+image1.Height) then
      image1.Picture.LoadFromFile('C:\2.bmp')
   else
      image1.Picture.LoadFromFile('C:\1.bmp');
end;