Mensaje sobre un botón.

[DOS]

Gracias ecfisa, seguro que estoy haciendo algo mal, pero no me doy cuenta, algo esta mal puesto, te muestro el codigo mas completo con tus cambios a ver si te das cuenta

Código Delphi [-]
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls, jpeg, Buttons, DBCtrls, DB, DBTables;

type
  TForm2 = class(TForm)
    TBitBtn = class(Buttons.TBitBtn)    //ya parto del error aca
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    Peluqueria1: TMenuItem;
    Administrador1: TMenuItem;
    Acercade1: TMenuItem;
    Ayuda1: TMenuItem;
    Image1: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    Image2: TImage;
    BitBtn_Del_Memo: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Acercade1Click(Sender: TObject);
    procedure Administrador1Click(Sender: TObject);
    procedure Peluqueria1Click(Sender: TObject);
    procedure Ayuda1Click(Sender: TObject);
    
  private
    procedure CMMouseEnter(var M: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var M: TMessage); message CM_MOUSELEAVE;
  end;
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  ImagenTemp:TImage;
implementation

uses Unit19, Unit5, Unit3, Unit14, Unit13, Unit17, Unit10, Unit20, Unit7,
  Unit6, Unit4, Unit24, Unit9, Unit1;
Const

   ImagePath1 = 'C:\ITM\imagenes\BMP\menu.bmp';
   ImagePath2 = 'C:\ITM\imagenes\BMP\mascota.bmp';
   ImagePath3 = 'C:\ITM\imagenes\BMP\Propietario.bmp';
   ImagePath4 = 'C:\ITM\imagenes\BMP\turnosgeneral.bmp';
   ImagePath5 = 'C:\ITM\imagenes\BMP\enfermedades.bmp';
   ImagePath6 = 'C:\ITM\imagenes\BMP\serviciosgenerales.bmp';
   ImagePath7 = 'C:\ITM\imagenes\BMP\inventario.bmp';
   ImagePath8 = 'C:\ITM\imagenes\BMP\facturacion.bmp';
   ImagePath9 = 'C:\ITM\imagenes\BMP\ayuda.bmp';
   ImagePath10 = 'C:\ITM\imagenes\BMP\productosvarios.bmp';
   ImagePath11 = 'C:\ITM\imagenes\BMP\propietario.txt';
   ImagePath12 = 'C:\ITM\imagenes\BMP\mascota.txt';

{$R *.dfm}

procedure TBitBtn.CMMouseEnter(var M: TMessage);
var
  WC : TWinControl;
begin
  inherited;
  WC := FindVCLWindow(Mouse.CursorPos);
  if Assigned(WC) and (WC.Name = 'BitBtn_Del_Memo') then
    with Form2.Memo1 do
    begin
      Clear;
      Lines.LoadFromFile(ImagePath12);
    end;
end;

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