Odstepy miedzy znakami !

{hello}

Czy wiecie moze jak uzyskac odstepy miedzy literami, cyframi ?

Chodzi mi o cos takiego, ze po wpisaniu w Edit1 jakiegos tekstu np. "CZESC", w Edit2 pojawi sie ten sam tekst ale ze spacjami pomiedzy literami "C Z E S C" ??? hmm...

Wystarczy w jakiejs petli kopiowac po kolei kazdy znak z edita i w nastepnej petelce wyswietlic te znaki dodajac do kazdego jedna spacje.--Source of life - Programming,
Skateboarding,
Metal.

var
s : string;
i : integer;
begin
s := Edit1.Text;
i := 1;
while i &lt length(s) do
begin
insert(' ', s, i + 1);
i := i + 2;
end;
Edit2.Text := s;
end;

--

Pozdrawiam...
piechnat

{brawo} Wielkie dzieki !!!!!!!!! :-)