De QR a Word

[NuncaMas]

Con lo que me has dicho he pasado el QR a un .txt, y ahora estoy intentando poner el contenido de ese txt en el mail leyendolo linea a linea pero el problema esta en que leo strings y los sumo y eso, pero la variable en cuestion del ShellExecute es un PAnsiChar y me de error... Yo lo hago asi:

      
       var linea:string;

       assignfile(fichero,'manolo.txt');
       reset(fichero);
       readln(fichero,linea);
       CloseFile(fichero); 
       ShellExecute(Handle,'open','mailto:subject=Presupuesto&Body='+linea,nil,nil,SW_SHOW);

y falla.... Me podriais ayudar.Gracias

[NuncaMas]

Ya esta.. he encontrado la funcion PChar() pero ahora surge otro problema:
en el mail todas las lineas quedas seguidas, sin enter, he probado sumando #10 y #13 pero na....

[__cadetill]

haz algo como....

cachoLinea + #13 + cachoLinea + #13 + ......