Memo para Memo

Oi tudo bom?

Estou precisando de uma função que tira o conteúdo de um Memo e manda para outro Memo. Será que você poderia me ajudar?

Eu já comecei, fiz alguma e ainda não consegui. Teria como você me ajudar?


Desde já agradeço.
--------------------------------------------------------------------------------------
A funcao:

Function FuncSeparaMemo(sl_SeparaMemo : TMemo):TMemo;
var
i : integer;
sl_RetornaMemo : TMemo;
s_Teste : String;
begin
for i := 0 to sl_SeparaMemo.Lines.Count -1 do
begin
s_Teste := copy(sl_SeparaMemo.Lines[i],1,pos(#13,sl_SeparaMemo.Lines[i]));
sl_SeparaMemo.Lines.Delete(i);
if s_Teste <> ´´ then
sl_RetornaMemo.Lines[i] := s_Teste;

end;
result:=sl_RetornaMemo;
end;
--------------------------------------------------------------------------------------
Essa função não está funcionando será que poderia me ajudar?