canvas 16 color pallettes for BMP

Can someone tell me how to force a picture.canvas to
only have a 16 color pallete?

I am trying to draw a 16 color images that I want to
save to a BMP file without using the SaveToFile command.
The Bmp files have to be embedded into another file.

I use delphi 1.

Thanks for any help.