Redibujar un bitbtn en tiempo de ejecución

[papulo]

Casimiro Notevi me ha dado la solución, que es bien sencilla.

Solamente tenía que añadir

Código Delphi [-]
  bbMA.Glyph := nil;

Antes de cargar la nueva imagen en el boton.

El código queda así:

Código Delphi [-]
procedure TGraphForm.bbALClick(Sender: TObject);
begin
  bbMA.Glyph := nil;
    if bAL then
       begin
        DataModule.imageResources.GetBitmap(4, bbAL.Glyph);
        bAL := False
      end
    else
      begin
        DataModule.imageResources.GetBitmap(0, bbAL.Glyph);
        bAL := True
      end
  end;