var
BitmapImage: TFPMemoryImage;
BitmapCanvas: TFPImageCanvas;
BitmapWriter: TFPWriterBMP;
begin
BitmapImage := TFPMemoryImage.Create(100, 100);
BitmapImage.UsePalette := True;
BitmapImage.Palette.Color[0] := FPColor($FFFF, $0000, $FFFF);
BitmapImage.Palette.Color[1] := FPColor($0000, $0000, $0000);
BitmapCanvas := TFPImageCanvas.Create(BitmapImage);
BitmapCanvas.Brush.FPColor := BitmapImage.Palette.Color[0];
BitmapCanvas.FillRect(BitmapCanvas.ClipRect);
BitmapCanvas.Brush.FPColor := BitmapImage.Palette.Color[1];
BitmapCanvas.FillRect(20, 20, 50, 50);
BitmapWriter := TFPWriterBMP.Create();
BitmapWriter.BitsPerPixel := 4;
BitmapImage.SaveToFile('standard.bmp', BitmapWriter);
BitmapCanvas.Free();
BitmapImage.Free();
BitmapWriter.Free();
end;