[Pyro]

Код:

procedure TForm1.Button1MouseMove(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:\Yellow.bmp')
   else
      Image1.Picture.LoadFromFile('C:\While.bmp');
end;

кстати сам по себе такой код совсем не говнокод, а unixway раз, два
если захочется оптимизировать, можно переопределить LoadFromFile, что бы кэшировал изображения и всё