Código Delphi [-]For I := 0 To Memo1.Lines.Count -1 DO TextoLinea := Memo1.Lines[i];
For I := 0 To Memo1.Lines.Count -1 DO TextoLinea := Memo1.Lines[i];