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