Automatic loop of the copy command

Question

If I copy each character individually from Edit and give a line break with #13#10, I use a code like this, but depending on the program is very full of variables

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e:string;

begin

a:=copy(Edit1.Text,1,1)+ #13#10;
b:=copy(Edit1.Text,2,1)+ #13#10;
c:=copy(Edit1.Text,3,1)+ #13#10;
d:=copy(Edit1.Text,4,1)+ #13#10;
e:=copy(Edit1.Text,5,1)+ #13#10;

memo1.Lines.Add(concat (a + B + C + d +e ));

end;

There would be no simpler way to do it even by wiping the above code using a for loop, while or otherwise, to use only one variable?

kind of:

procedure TForm1.Button2Click(Sender: TObject);
var
a:string;
i:integer ;
begin

for i:=0 to Length(Edit1.text) do
a:=(copy(Edit1.Text,i,1)+ #13#10);

memo1.Lines.Add(a);

end;

Answer 1

Since we do not know the size of the input text, then we will have to make a Dynamic Array, and go through each character and add the Enter in the end.

program teste;
var 
  vetor :Array of String;
  n,i : integer;
  texto : string;
begin
 texto := 'StackOverflow';
 n := length(texto); 

 SetLength(vetor,n); // seta o valor máximo do array. 

 for i:=1 to high(vetor) do
 begin
   vetor[i] := copy(texto,i,1)+ #13#10;
 end;

 //Array para impressão
 for i:=1 to high(vetor) do
 begin
    memo1.Lines.Add(a);
    // write(vetor[i]);
    // Showmessage(vetor[i]);
 end

end.