DELPHI label 移动

label1.Width:=form1.Width;
  label1.Left:=label1.Left - 1;
  if label1.Left = 328  then
  label1.Left:=form1.Width;
这样会label1.Left到了328的时候直接消失变到  最右边再移动
怎么才可以把文字移动到328的时候，等完全文字消失(在328的地方就像在窗体中移动完一样)，直接最后一直移动并消失后，在从最右边进行移动

追问：var
  s:string;
begin
  s:='OUOUYEYE';
  LABATT.Left:=LABATT.Left - 1;
  if LABATT.Left <= 328 then
  begin
    Sleep(100);
    LABATT.caption:=copy(LABATT.caption,2,length(LABATT.caption));
    if  Length(LABATT.Caption)<=1 then
    begin
      LABATT.Caption:=s;
      LABATT.Left:=Main_frm.Width;
    end;
  end;   
这样有点怪异  但是勉强达到要求

答案：i:=0;
if lable1.left=328 then
  begin
     inc(i);
     str1:=lable1.caption;
     label1.caption:=copy(str1,i,length(str1)-i);
  end;

上一个：谁能教我学DELPHI编程啊?我对此感兴趣!先谢谢了
下一个：access delphi 统计 计算 数据自动更新问题