нарисовать городской пейзаж

procedure TForm1.FormCreate(Sender; TObject);
begin
 with Image1.Canvas do begin
  brush.color:=$9999FF;
  rectangle(0,0,Image1.Width, Image1.Height);
  brush.Color:=clGray;
  rectangle(10,30,50,Image1.Height);
  brysh.color:=clYellow;
  rectangle(20,40,55,Image1.Height);
  ellipse(Image1.Width-60,10,Image1.Width-10,60);
  brush.Color:=0;
  rectangle(30,0,33,40);
 end;
end;

procedure TForm1.FormCreate(Sender; TObject);
begin
 with Image1.Canvas do begin
  brush.color:=clBlue;
  rectangle(0,0,Image1.Width, Image1.Height);
  brush.Color:=clGray;
  rectangle(10,30,100,Image1.Height);
  brysh.color:=clYellow;
  rectangle(50,40,150,Image1.Height);
  ellipse(Image1.Width-60,10,Image1.Width-10,60);
  brush.Color:=0;
  rectangle(100,0,33,40);
 end;
end;

procedure TForm1.FormCreate(Sender; TObject);
begin
 with Image1.Canvas do begin
  brush.color:=clBlue;
  rectangle(0,0,Image1.Width, Image1.Height);
  brush.Color:=clGray;
  rectangle(10,30,150,Image1.Height);
  brysh.color:=clYellow;
  rectangle(190,40,250,Image1.Height);
  ellipse(Image1.Width-60,10,Image1.Width-10,60);
  brush.Color:=0;
  rectangle(210,0,213,40);
 end;
end;