[[cHackAll]]

Creo que lo que requieres es la siguiente línea:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 Image1.Picture.Bitmap.PixelFormat := pf8bit;
end;

y obviamente para guardarlo:

Código Delphi [-]
 Image1.Picture.Bitmap.SaveToFile('prb.bmp');

Utilicé un TImage para que veas que en tiempo de ejecución que funciona a la perfección. Obviamente que debes tener un BMP en la propiedad Picture del TImage de 24 bits para verlo!

Saludos!