Как я могу создавать файлы BMP (растровые изображения) одного цвета с помощью delphi

Мне нужен быстрый способ создания 24-битных растровых изображений (и сохранения в файл) во время выполнения, указав ширину, высоту и цвет

примерно как

procedure CreateBMP(Width,Height:Word;Color:TColor;AFile: string);

и позвонив так

CreateBMP(100,100,ClRed,'Red.bmp');