Bitmap mit einer farbe erstellen

[Sunlight7]

Delphi-Quellcode:

   bmp:=TBitmap.Create;
   bmp.Canvas.Brush.Color:=Random(16777216);
   bmp.Width:=Image1.Width;
   bmp.Height:=Image1.Height;

Kommt ohne FillRect aus