TImage32.SetSize

procedure SetSize(newWidth, newHeight: Integer; color: TColor32 = clNone32);

Erases any current image, and fills with the specified color.