Convertir un TString a PWideChar

[bustio]

Hola.... el codigo que me enviate si compila, pero cuando trato de visualizar la cadena convertida a PWideChar no es lo que se le entro. Esta es la implementacion.
Simplemente puse un edit, un boton y un label. En el edit entro el texto, en el OnClick del boton lo convierto y lo muestro con el label.

Cuando compilo me da este warning:
[Warning] strToPWideChar.pas(34): Suspicious typecast of String to PWideChar.

Supongo que ahi es donde esta el problema.. pero no lo deja hacer. Mi implementacion es esta:

procedure TForm1.Button1Click(Sender: TObject);
Var
Cadena : String;
Resultado : WideChar;
begin
Cadena := edit1.Text;
Resultado := PWideChar(Cadena)^;
Label1.Caption := Resultado;
end;


y cuando le entro la cadena LOLO, lo que me muestra en el label es: ??.

Saben por que es?? Agradezco cualquier sugerencia.

GRACIAS

[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.