convertir un tbitmap a integer

[[coso]]

Bueno, esto es algo completamente diferente a lo anterior.
No puedes comparar un TBitmap y una string, pues la string que tu estas mostrando no es mas que el nombre del fichero, y no su mapa de bits. Lo mejor que puedes hacer es cargar antes los n TBitmaps en un array y irlos colocando/comparando segun necesidad.

Código Delphi [-]
var
    b : array [0..n] of TBitmap;
 
...
procedure Inicio;
var
   i : integer;
begin
         for i := 0 to n - 1 do
         begin
                  b[i] := TBitmap.Create;
                  b[i].LoadFromFile(inttostr(i+1)+'.jpg');
         end;
end;
 
...
 
procedure OnTimer;
begin
       if BitBtn.Glyph = b[0] // esto si lo podemos comparar, pues son dos 
//punteros a TBitmap. Ahora bien, los glyph deberas haberlos asignado antes 
//de la manera BitBtn.Glyph := b[n], pues si no tendrian direcciones diferentes
//aun verse el mismo mapa de bits
       ...
end;
 
...

despues de todo esto (y no porque no funcione), creo q lo mejor seria que guardases en una string global cual ha sido tu ultimo glyph guardado, y comparar esta string. Mas que nada para que no te confundas con el codigo. Saludos.

PD: deberas, si creas los TBitmaps asi, liberarlos tambien 'manualmente' antes de salir de la aplicación