if label1.left+label1.width>=0 then
label1.left:=label1.left-3
else
begin
inc(ordn);
if ordn>=memo1.lines.count then ordn:=0
else if trim(memo1.lines[ordn])=” then ordn:=0;
label1.left:=label1.Parent.Width;
label1.caption:=memo1.lines[ordn];
end;
備註：
1.Form出現捲軸
Form1.HorzScrollBar.Visible := False;
2.Timer不要設定太慢
3.ordn設為private變數（不要設定在timer事件）