Написать программу, которая выводит на экран приведенный ниже узор

procedure TForm1.FormPaint(Sender: TObject);
var i,x,y,w,h:integer;
begin
w:=(Form1.ClientWidth-40)div 5;
h:=(Form1.ClientHeight-40)div 4;
x:=20;
y:=20;
with Form1.Canvas do
 begin
  color:=clWhite;
  pen.Width:=3;
  pen.Color:=clRed;
  for i:=1 to 4 do
   begin
    rectangle(x,y,x+2*w,y+h);
    x:=x+w;
    y:=y+h
   end
 end  
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormActivate(Sender: TObject);
 
begin
 image1.Canvas.Rectangle(300,250,200,200);
 image1.Canvas.Rectangle(250,200,150,150);
 image1.Canvas.Rectangle(200,150,100,100);
 image1.Canvas.Rectangle(150,100,50,55);
 
end;
end.