Описать процедуру рисования любого узора. Используя эту процедуру "замостить" узором холст

procedure ris(xc,yc:integer;cv:TCanvas);
var points: Array[1..4] of TPoint;
    d:integer;
begin
with cv do
 begin
  d:=25;
  Brush.Color:=RGB(0,225,0);
  Rectangle (xc-d,yc-d,xc+d,yc+d);
  Brush.Color:=RGB(225,0,0);
  points[1] := Point(xc-d,yc);
  points[2] := Point(xc,yc-d);
  points[3] := Point(xc+d,yc);
  points[4] := Point(xc,yc+d);
  Polygon(points);
  Brush.Color:=RGB(0,0,225);
  Ellipse (xc-round(0.6*d),yc-round(0.8*d),xc+round(0.6*d),yc+round(0.8*d));
  d:=12;
  Brush.Color:=RGB(0,225,0);
  Rectangle (xc-d,yc-d,xc+d,yc+d);
  Brush.Color:=RGB(225,0,0);
  points[1] := Point(xc-d,yc);
  points[2] := Point(xc,yc-d);
  points[3] := Point(xc+d,yc);
  points[4] := Point(xc,yc+d);
  Polygon(points);
  Brush.Color:=RGB(0,0,225);
  Ellipse (xc-round(0.6*d),yc-round(0.8*d),xc+round(0.6*d),yc+round(0.8*d));
 end;
end;
procedure TForm1.FormPaint(Sender: TObject);
var x,y:integer;
begin
y:=25;
while y<=Form1.ClientHeight do
 begin
  x:=25;
  while x<=Form1.ClientWidth do
   begin
    ris(x,y,Form1.Canvas);
    x:=x+50;
   end;
  y:=y+50;
 end;
 
end;