[SergeNik]

Очень просто - Командой FloodFill; Команда закрашивает ограниченную область.
Пример:
With Canvas Do
begin
Pen.Color = clBlack;
Rectangle(10,10,40,40);
FloodFill(20, 20, clWhite, fsSurface);
Rectangle(45,10,85,40);
FloodFill(46, 12, clGreen, fsSurface);
end;