关于Delphi的一个小问题

请问，如何实现在statuspanel上实现左移文字一个一个消失，而不是全部消失呢？
procedure TForm2.Timer2Timer(Sender: TObject);
var stemp:string;
    j:integer;
begin
    stemp:= form1.edit1.text;
    if pos>0 then
    begin
       for j:=1 to pos do
       begin
         stemp:=' '+stemp;
       end;
       StatusBar1.Panels[0].Text := stemp;
       pos:=pos-1;
    end
    else
       pos:=100;
end;
这个代码是在stemp前加空格，然后到端点后stemp的内容就全部消失了，如何实现一个一个消失呢？
请指教，谢谢各位朋友们！