[DOS]

me tira el siguiente error ...Cannot open file"C:\ITM\imagenes\BMP\Chairs"... no se a que hace referencia con chairs, esto sucede aunque no pase el mouse por arriba solo al abrir el formulario, te muestro el codigo

Código Delphi [-]
unit Unit2;  //menú veterinaria

interface

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

type
  TBitBtn = class(Buttons.TBitBtn)
  private
    procedure CMMouseEnter(var M: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var M: TMessage); message CM_MOUSELEAVE;
  end;

  TForm2 = class(TForm)
    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;
    Memo1: TMemo;
    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
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

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';
   PATHTOTXT = 'C:\ITM\imagenes\BMP\';
   TXTNAME : array[1..2] of string = ('mascota.txt', 'propietario.txt');// De prueba solo puse dos

{$R *.dfm}

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

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