Oczywiście!
sciągnij sobie Grafika.pas --> http://www.andrew.b7.pl/Grafika.pas. tam jest procedura floodFill, przeczytaj i przeanalizuj.
BTW, to jest procedura wypełniająca dowolną figurę, jeśli chcesz narysować wypełniony kwadrat to :
var : x,y : integer;
begin
for y := 10 to 100 do
for x := 10 to 100 do
form1.canvas.pixels[x,y] := clRed;
end;
inaczej :
canvas.brush.style := bsSolid;
canvas.brush.color := clRed;
canvas.rectangle(10,10,100,100);
sposobów narysowania wypełnionego kwadratu są setki.. uff..