Problemas con la api GetProcessImageFileNameW

[Suriu]

Hola a todos:
Tengo un problema en el que espero puedan ayudarme. El problema es el siguiente estoy trabajando con el API GetProcessImageFileNameW el código que utilizó en más o menos es siguiente:

Código Delphi [-]
type
  TPROFILENAME = function(hProcess: THandle; lpFileName:LPTSTR; nSize: DWORD)WORD; stdcall;

var
 Filename: TPROFILENAME;
....
procedure TForm1.Button1Click(Sender: TObject);
var
 text: array[0..260] of Char;
 dll: HMODULE;
 proc: THandle;
begin
 proc:= OpenProcess(PROCESS_QUERY_INFORMATION,False,StrToInt(Label2.Caption));
 dll := LoadLibrary('C:\WINDOWS\system32\psapi.dll');
 Filename := GetProcAddress(dll,'GetProcessImageFileNameW');
 Filename(proc,PChar(@text),260);
 ShowMessage(text);
 CloseHandle(proc);
 FreeLibrary(dll);
end;

Así me funciona bien, el problema esta en la línea ShowMessage (text); cuando esta se ejecuta el mensaje solo muestra un BackSlash ('\') y cuando reviso el valor manualmente si me pone el path completo del proceso. Alguien me podría explicar porque pasa esto. Gracias de antemano por la ayuda que me puedan brindar.