Código Delphi [-] for i:=0 to memo1.lines.count -1 do begin linea := Memo1.lines[i] end;
for i:=0 to memo1.lines.count -1 do begin linea := Memo1.lines[i] end;