А ещё можно создать область отсечения, тогда всё, что рисуется, будет выводиться только внутри заданного прямоугольника.
Правда, я знаю как это делать через API, а вот как делать через VCL не знаю.
....
var
Region:HRGN;
....

Region:=CreateRectRgn(x1,y1,x2,y2);
SelectClipRgn(DrawCanvas.Handle,Region);

Вместо DrawCanvas - Canvas формы или того элемента, на котором рисуете.
И не забудьте потом вернуть обратно. А то будете потом искать почему всё остальное не рисуется. :)

Кстати, в событии OnPaint можно читать свойство
Canvas.ClipRect: TRect; которое содержит координаты области, которую необходимо перерисовывать. Но вот не знаю можно ли его записывать (я в основном работаю через API).