Hola
Código Delphi
[-]
var
A : String;
B: PWIDECHAR;
begin
A := Edit1.Text;
B := PWIDECHAR(A);
end;
espero te sirva

saludos
Edito:
No había leido bien, dices que ya intentastes esta vía, yo lo prové con delphi 6 y trabajó, muestra álgo de tu código aquí quizas no sea ese el problema, y te podamos ayudar mejor.
Saludos
