[Delphi] Ajuda a entender um codigo

[josezito 1]

Opa pessoal olha so eu sei para q serve o codigo abaixo eu so quero entender a linha em vermelho se alguem puder ajudar eu agradeço

 

 

var

i: Integer;

Inverso: string;

begin

for i := Length(Edit1.Text) downto 1 do

begin

Inverso := Inverso + copy(Edit1.Text,i,1);

end;

Edit1.Text := Inverso;

end;

 

[AceStryker 32]

Ele pega a letra do length e adiciona a letra na string inverso

[josezito 1]

Opa valeu duvida resolvida pode fechar