RepaintRect example for Delphi
Lead1.AutoRepaint:=False; Lead1.Flip(); Lead1.RepaintRect(0, 0, Lead1.BitmapWidth, Lead1.BitmapHeight div 2, false); ShowMessage('Click OK for full repainting'); Lead1.ForceRepaint;