Как сделать развивающийся флаг

Как сделать развевающийся флаг ?

begin
Canvas.Pen.Width:=1;
Canvas.Pen.Color:=clBlack;
Canvas.Brush.Color:=clWhite;
Canvas.Rectangle(0,0,500,300);
with canvas do
begin
Brush.Color:=clWhite; Rectangle(0,0,500,100);
Brush.Color:=clBlue; Rectangle(0,100,500,200);
Brush.Color:=clRed; Rectangle(0,200,500,300);
Canvas.Font.Size:=20;

end;