Convertir un TString a PWideChar

[bustio]

Hola comunidad;

Hasta que al fin pude dar con la solucionami pregunta... Aqui les va por si algun dia hay algun loco perdido que no puede hacerlo..a si se ahorra el trabajoq ue yo pase para dar con las solucion.
En fin.. que este es el codigo:


var
Buffer : Array [0..1000]of WideChar;
Direccion : PWideChar;
Addr : String;

begin
Addr := edtCamino.Text + '\' + Tapiz;
Direccion:= StringToWideChar(Addr,Buffer,Length(Addr)+1);
StatusBar1.Panels[0].Text := WideCharToString(Direccion);
end;

Espero que le sea util a alguien.