Los objetos
TMemo tienen una propiedad llamada
Lines, la cual es un objeto de tipo
TStringList del que puedes extraer el contenido completo como un
STRING. Es este último el que debes utilizar.
Useasé:
Código Delphi
[-]
PROCEDURE MiMetodo (Texto: STRING);
···
VAR
Memo1: TMemo;
···
MiMetodo (Memo1.Lines.Text);
···