Delphi - Cadena de caracteres: Excel y Delphi

HOLA TODOS,
Necesito copiar de excel todas las celdas y pegarlas en un Trichedit o Tmemo para luego unirlo todo por linea y trabajar, cuando se trata de pegar un txt normal o escribir, simplemente, utilizo la funcion "StringReplace" y me funciona perfectamente, elimino todos los espacios y trabajo, pero cuando copio desde excel y pego en un Tmemo o Trichedit, esto se pega en forma de tabla y no puedo eliminar los espacios por medio de esta funcion "stringreplace". Lo que quiero decir es que al pegar algo como esto desde excel : R12 PRUEBA, en uno de los componentes mencionados, necesito lograr objeter esto : R12PRUEBA. eliminar los espacios y unirlo todo, esto con cada una de las filas. Espero puedan ayudarme.

GRACIAS.

// si no enteni mal....
// le pasas el valor= ''
var
pegar : string;

begin
pegar := 'R12 PRUEBA';
pegar := StringReplace(pegar, ' ', '',[rfreplaceall, rfignorecase]);
memo1.Text:=pegar;

espero que te funcione