Узор

procedure TForm1.FormResize(Sender: TObject);
begin
Canvas.Rectangle(10,10,40,40);
Canvas.Rectangle(40,10,70,40);
Canvas.Rectangle(70,10,100,40);
Canvas.Rectangle(40,40,70,70);
Canvas.Rectangle(40,70,70,100);
Canvas.Ellipse(40,40,70,70);
Canvas.Ellipse(40,70,70,100);
end;

procedure TForm1.FormResize(Sender: TObject);
var
 x,y,k : integer;
begin
x := 10; y:=10;
k := 30;
Canvas.Rectangle(x,y,x+k,y+k);
Canvas.Rectangle(x+k,y,x+2*k,y+k);
Canvas.Rectangle(x+2*k,y,x+3*k,y+k);
Canvas.Rectangle(x+k,y+k,x+2*k,y+2*k);
Canvas.Rectangle(x+k,y+2*k,x+2*k,y+3*k);
Canvas.Ellipse(x+k,y+k,x+2*k,y+2*k);
Canvas.Ellipse(x+k,y+2*k,x+2*k,y+3*k);
end;