Utiliza el array memo1.lines, que es un TStrings, y cada posición es un String.
Ten en cuenta que empieza por 0:
Código Delphi
[-]
memo1.lines.clear;
memo1.lines.add('aaaaaa');
memo1.lines.add('bbbbbb');
memo1.lines.add('cccccc');
datos := memo1.Lines[1];
datos := datos+'dddd';
memo1.lines[1] := datos;
Pero ten en cuenta que si no hay 2 líneas en el memo no puedes acceder a memo1.lines[1] porque te dará error; controla en número de líneas con memo1.lines.count!