Prueba codificando el texto según la normativa RFC 1738.
Código Delphi
[-]
function URLEncode(Str: string): string;
var
i: integer;
begin
Result:= '';
for i:= 1 to Length(Str) do
if Str[i] in ['A'..'Z','a'..'z','0'..'9','-','_','.'] then
Result:= Result + Str[ i ]
else
Result:= Result + '%' + IntToHex(Ord(Str[ i ]),2);
end;
El código que tu pasa quedaría así
Código Delphi
[-]
pChar('mailto:'+URLEncode(Trim(Destino))+ '?subject=' + URLEncode(Trim(Asunto))+'&body='+URLEncode(Textos.Text))
No lo he probado pero con eso debería bastar, cuentanos haber si resulto bien.
EDITO: Ya lo he probado y parece que funciona, aunque no si si fue un error al copiar, pero el primer '&' debería ser un '?'.