各位大哥，有个问题帮忙解决一下~~~~~~~~~~~~~~

Question

1。显示图形的程序
比如：编写一个程序使一只鸟飞过屏幕，飞鸟的动作可由小写字母V（ASCII码76H）变为破折
号（ASCII码0C4H）来模仿，这两个字符先后交替在两列显示。鸟的开始位置是0~~20行，每个字
符显示0.5秒,(可用指令循环来模拟),然后消失.谢谢各位了!!!!

Answer 1

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if Label1.Caption='V' then Label1.Caption:='-' else Label1.Caption:='V';
    Label1.Left:=Label1.Left+2;
    if Label1.Left>500 then Timer1.Enabled:=false;
end;