Guardarme una Cadena de texto de un Memo

[[Nbull]]

Gracias llonigualker me ha funcionado, ahora mi problema es que en el memo auxiliar que me he puesto para que me saque todos los números que haya solo me saca el de la primera linea.Mi código es este:

Código Delphi [-]
for i:=0 to (Tarificador.Lines.Count- 1) do
begin
Str:=Tarificador.Lines[i];
NumeroTlf:=Copy(Str,40,10);
Mprueba.Lines[i]:=NumeroTlf;
end;

Haber si me podeis decir que es lo que tengo mal por que ya os digo, solo me pone la primera linea de mi tarificador en Mprueba.

Gracias a los dos me habeis ayudado mucho.
Un saludo y a pasar buena tarde.