Пробел между буквами Выручите!

[Mickle]

Привет всем!
Дело в том что вот этот код:
procedure TForm1.Button1Click(Sender: TObject);
Var
st:String;
j,iInteger;
begin
st:=Edit1.Text;
j:=Length(st);
for i:=0 to j do
Begin
insert(' ',st,j-i);
Edit2.Text:=st;
end;
end;
Берёт строку из Edit1 и между каждой буквой вставляет пробел, как можно сделать так чтобы сначало печатал в Edit2 первую букву потом курсор сдвигался вправо как бы эффект пробела потом печатал вторую букву опять сдвигался вправо и.т.д
Подскажите пожалуйста.
Зарание благодарю.

[Shuraken]

Так проще написать:

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
Edit2.Text := '';
for i := 1 to length(Edit1.Text) do
Edit2.Text := Edit2.Text + Edit1.Text[i] + ' ';
end;