TImage32.FillRect

procedure FillRect(rec: TRect; color: TColor32);