Crear un Boton funcional a partir de dos Imagenes

[martini002]

Ecfisa,

Gracias por tu respuesta, realmente me ayudo mucho

Código Delphi [-]
Form1.Image1.Picture.LoadFromFile('C:\Tu_Ruta\Imagen1.jpg');

Esto era lo que estaba buscando exactamente
como modificar esa propiedad directamente desde el codigo,
realmente como en el primer ejemplo es precisamente
lo que necesito, pero no me funciona,
el lenguaje no me reconoce esta propiedad

Código Delphi [-]
CMMouseEnter
CMMouseLeave

me tira estos errores

Código Delphi [-]
[Error] AreaRectangulo.pas(59): ';' expected but '.' found
[Error] AreaRectangulo.pas(59): ';' expected but ')' found

Código Delphi [-]
procedure BotonImg.CMMouseEnter(var Msg: TMessage); // Aqui el error
begin
  Acciones.
end;

Ese hover es lo que realmente he venido buscando
pero pude encontrar otra forma un poco menos atractiva
pero que al final funciono muy bien
como podria resolver lo del hover?

Tambien me interesaria bastante conocer donde
conseguiste conocer esta propiedad "LoadFromFile"
seguramente alli mismo deben haber otras que me ayudarian bastante
interesantes respuestas,
gracias por el apoyo

Best,
Martin

Código Delphi [-]
procedure TForm1.BotonImgMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Form1.BotonImg.Picture.LoadFromFile('F:\Borland\Delphi7\Projects\Area Rectangulo\BotonAbajo.jpg');
end;

procedure TForm1.BotonImgMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Form1.BotonImg.Picture.LoadFromFile('F:\Borland\Delphi7\Projects\Area Rectangulo\BotonArriba.jpg');
end;