[Delphi] problem z edit1

mam w edit1.text słowo "test" jak zrobić aby co sekund w edit2.text pojawiała się litera po kolei z edit1.text np. co sekunde t , e , s, t bo to polecenie jest skopane

Edit2.text:=Edit1.text[cos];
inc(cos);

pojawiają się jakieś niestworzone znaki

for i:=0 to Length(Edit1.text) do
begin
sleep(1000);
Edit2.text:=Edit2.text+Edit1.text[i];
end;

nie działa taje tylko ostatnią literę a m dawać co sekunde pokolei każdą

type
TForm1 = class(TForm)
Timer1: TTimer;
Edit1: TEdit;
Edit2: TEdit;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
position: integer;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(position);
if position>Length(Edit1.Text) then position:=1;
if Length(Edit1.Text)>0 then
Edit2.Text:=Edit1.Text[position];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='test';
position:=0;
end;

end.

thx pq

[hurra] działa

Czesc
Zrobilem program ktory rozkłada jakis wyraz na czesci potem go miesza i co sekunde do Edita wczytuje literke jedną i tak dotąc az wczyta caly wyraz ktory jest pomieszany... jesli chcesz to wysle Ci zrodełka na maila...
pozdrówka

nie trzeba ale dzięki za chęci ;p