Le code suivant ne fonctionne pas. Comment pourrais-je le faire fonctionner?

C'est tout bête, mais je n'y arrive pas!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
var
   i: integer;
   c: char;
begin
 
   for i:= 1 to length(edit1.text) do
      c := copy(edit1.text, i, 1);
 
end;