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;