[PhoeniX]

Код:

var i,j,k:integer;
begin
  for i:=0 to image1.Width div 2 do
   for j:=image1.Height div 2 downto 0 do
    begin
     Flag(i,j);
     for k:=image1.Height div 6 to image1.Height div 3 do
       brush.Color:=clBlue;
     for k:=image1.Height div 3 to image1.Height div 2 do
       brush.Color:=clRed;
    end;