Mensaje sobre un botón.

[ecfisa]

Hola DOS.

No me queda claro lo siguiente: ¿ Existe un archivo txt diferente para cada TBitBtn y debe mostrarse en el TMemo cuando pase por encima de cada uno ?

Si es así, del código del mensaje #4, sólo tenes que cambiar:

Código Delphi [-]
...
const
   (* Según tu mensaje los .txt estan en la misma ruta de las imágenes *)
   PATHTOTXT = 'C:\ITM\imagenes\BMP\';  
   (* Nota: Los nombres no tienen que ser estos necesariamente... *)
   TXTNAME : array[1..12] of string = ('menu.txt','mascota.txt', 'propietario.txt',
     'turnosgeneral.txt', 'enfermedades.txt','serviciosgenerales.txt', 'inventario.txt',
     'facturacion.txt', 'ayuda.txt','productosvarios.txt','propietario.txt','mascota.txt');

procedure TBitBtn.CMMouseEnter(var M: TMessage);
begin
  inherited;
  Form1.Memo1.Lines.LoadFromFile(PATHTOTXT + TXTNAME[Tag]);
end;

procedure TBitBtn.CMMouseLeave(var M: TMessage);
begin
  inherited;
  Form1.Memo1.Clear;
end;
...

Saludos.