Delphi a Unicode

Witam, czy ktoś mi może wytłumaczyć czemu jak zrobię sobie okienko, edit i button w WinAPI (mam dużo czasu) wpiszę w edit np. cyrylicę, pobiorę przez GetWindowTextW i wyświetlę przez MessageBoxW to wszystko poprawnie działa.

A jak zrobię to samo przy pomocy komponentów VCL (np. w Delphi 7 lub 2007 for Win32) w taki sposób:

var
  S: WideString;
begin
  SetLength(S, GetWindowTextLengthW(Edit.Handle));
  GetWindowTextW(Edit.Handle, PWideChar(S), Succ(Length(S)));
  MessageBoxW(Self.Handle, PWideChar(S), '', 0);
end;

to dostaję znaki zapytania zamiast cyrylicy?

Jak sobie z tym poradzić?

kiedyś się bawiłem i wyszło na to że CLX zżera bez problemu dziwne znaczki, nie wiem czy pełny unikod bo nie sprawdzałem ale te co chciałem to zeżarł