Наведение курсора на картинку

procedure TForm2.Image28MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var
  MyMouse: TMouse;
begin
   if  ((MyMouse.CursorPos.x >= 174) and (MyMouse.CursorPos.x < 208) and (MyMouse.CursorPos.y >= 365) and  (MyMouse.CursorPos.y < 413)) then im_L1 := 1
   else  im_L1 := 0;
end;

myRect := Rect(20, 30, 100, 200);

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var    myRect : TRect;
begin
      myRect := Rect(0, 0, 68,43);
     if PtInRect(myRect, Point(X,Y)) then Image2.Visible := true;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var    myRect : TRect;
begin
     myRect := Rect(0, 0, 68,43);
     if PtInRect(myRect, Point(X,Y)) then
     if Image2.Visible = true then Image2.Visible := false
     else Image2.Visible := true;
end;

TMyButton = record
  R:TRect; // координаты те самые Left,Top,Right,Bottom
  State:integer;// состояние - Свободна/Под мышью/Нажата
  Text:string; // надпись на кнопке
end;

TForm1=class(TForm)
...
  procedure FormCreate(Sender:TObject);
  procedure FormDestroy(Sender:TObject);
private
  procedure CheckButtonStates(x,y:integer);
  procedure DrawButtons;
  procedure DrawButton(index:integer);
  procedure ButtonClicked(index:integer);
public
  imgNorm:TBitmap;
  imgOver:TBitmap;
  imgPressed:TBimap;
  buttons:array[0..20] of TMyButton;
end;
 
procedure TForm1.FormCreate(Sender:TObject);
begin
  imgNorm:=TBitmap.Create;
  imgNorm.LoadFromFile('ButtonNorm.bmp');
  imgOver:=TBitmap.Create;
  imgOver.LoadFromFile('ButtonOver.bmp');
  imgPressed:=TBitmap.Create;
  imgPressed.LoadFromFile('ButtonPressed.bmp');
 
  button[0].text:='кнопка 1'; Button[0].rect:=bounds(10,10,120,20);
  button[1].text:='кнопка 2'; Button[1].rect:=bounds(10,40,120,20);
  button[2].text:='кнопка 3'; Button[2].rect:=bounds(10,70,120,20);
  button[3].text:='кнопка 4'; Button[3].rect:=bounds(10,100,120,20);
  button[4].text:='кнопка 5'; Button[4].rect:=bounds(10,130,120,20);
end;
 
procedure TForm1.FormDestroy(Sender:TObject);
begin
  imgNorm.free;
  imgOver.free;
  imgPressed.free;
end;
 
procedure TForm1.CheckButtonStates(x,y:integer);
begin
  for i:=0 to high(Buttons) do
  begin
    if ptInRect(Buttons[i].R, point(X,Y)) then
      Buttons[i].State:=1 // mouse over button
    else
     Buttons[i].State:=0; // button normal state
  end;
end;
 
procedure TForm1.DrawButton(index:integer);
begin
  case Buttons[index].state of
    0:begin 
       // рисуем кнопку Buttons[index] в ненажатом состоянии
    end;
    1:begin
       // рисуем кнопку Buttons[index] в состоянии "под курсором"
    end;
    2:begin
       // рисуем кнопку Buttons[index] в нажатом состоянии
    end;
  end;
end;
 
procedure TForm1.DrawButtons;
var i:integer;
begin
  for i:=0 to high(Buttons) do
    drawButton(i);
end;
 
procedure TForm1.ImageOnMouseMove(.....);
begin
  CheckButtonStates(x,y);
  DrawButtons;
end;
 
procedure TForm1.ImageOnMouseDown(...);
var i:integer;
begin
  for i:=0 to high(buttons) do
    if ptInRect(Buttons[i], Point(x,y)) then
    begin
       buttons[i].state:=2; // нажата
       drawButtons;
       break;
    end; 
end;
 
procedure TForm1.ImageOnMouseUp(...);
var i:integer;
begin
  for i:=0 to high(buttons) do
    if ptInRect(Buttons[i], Point(x,y)) then
    begin
       ButtonClicked(i);
       DrawButtons;
       break;
    end; 
end;
 
procedure TForm1.ButtonClicked(index:integer);
begin
  // по нажатию любой кнопки программа приходит сюда
  // т.е. сейчас нажали кнопку buttons[index]
  // делай тут что хотел
end;