[Antidelphik]

блин, должен быть флаг =(

Код:

procedure TForm1.Button1Click(Sender: TObject);

procedure Flag (x,y:integer);
var k:integer;
 begin
  with image1.Canvas do
   begin
    pen.Color:=clBlack;
    brush.Color:=clWhite;
    rectangle(x,y,x+image1.Width div 2,y-image1.Height div 6);
    for k:=y-image1.Height div 6 downto y do
     brush.Color:=clBlue;
    for k:=y-image1.Height div 3 downto y-image1.Height div 6 do
     brush.Color:=clRed;
   end;
 end;

var i,j:integer;
begin
 with image1.Canvas do
  begin
   brush.Color:=clSilver;
   Fillrect(Image1.ClientRect);
   for i:=0 to image1.Width div 2 do
    for j:=image1.Height div 2 downto 0 do
      begin
        Flag(i,j);
      end;
  end;

end;

я только ещё твою строчку не добавляла, почему то вылазит при запуске image наполовину черный, на половину серый