title: How I create bmp files (bitmaps) of a single color using delphi
body: <p>I need a fast way to create 24 bits bitmaps (and save to a file) in runtime,specifing the Width , Height  and color</p>
  
  <p>something like </p>
  
  <pre><code>procedure CreateBMP(Width,Height:Word;Color:TColor;AFile: string);
  </code></pre>
  
  <p>and call like this</p>
  
  <pre><code>CreateBMP(100,100,ClRed,'Red.bmp');
  </code></pre>