Hola.
Seguramente el texto que se inserta desde el memo tenga saltos de líneas, podrías quitarlos de este modo:
Código Delphi
[-]
procedure ReplaceAndSave(const Name: string; Old, New: string);
begin
New:= StringReplace(New, #13#10, '', [rfReplaceAll]); with TStringList.Create do
try
LoadFromFile(Name);
Text:= StringReplace(Text, Old, New, [rfReplaceAll]);
finally
SaveToFile(Name);
Free;
end;
end;
Saludos.