>>731

private
I : Integer;
Str2: string;

procedure TForm1.OnFormCreate(Sender : TObject); //起動時の初期化処理
var
N : Integer;
Str : string;
Retry : Boolean;
begin
N := 20; //ずらす回数
Str := 'Hello.'; //ずらす文字
　Retry:= True; //繰り返す→True 繰り返さない→False
end;

procedure TForm1.OnTimer1Timer(Sender : TObject); //TTimerコンポーネント
begin
if I < N then
begin
Str2:= ' '+Str2; //' 'の中身はスペース
I := I+1;
end
else
if Retry then
begin
Str2:= Str;
I := 0;
end;
Edit1.Text:= Str2; //コンポーネント名はご自由に
end;

こんなもんではどうでしょう？
このソースでは、Str入力した文字列がN回ずらされてEdit1に出力されます。
今速攻で作成したので文法には自信ないです。