Look at FillRect for details.

function ImFillRect(var Image: TImageData; 
                    X: LongInt; 
                    Y: LongInt; 
                    Width: LongInt; 
                    Height: LongInt; 
                    Fill: Pointer): Boolean; cdecl;

ImagingExport (at line 140)