Проблема при использовании WM_GETTEXT c RichEdit

[GurAnvir]

Требуется получить текст из контрола следующего класса(имеется в виду оконный класс в смысле WinAPI) TInfuRichViewEdit.UnicodeClass Однако в описании этого сообщении стоит что unicode не поддерживается. Однако все же пошарив по инету убедился что народ как то решает сию проблему, а вот как непонятно. Проблема в том, что у меня не выводится текст из контрола, а появляется одиночный символ, который никак не связан с текстом в контроле.Как справится с проблемой?

GetClassName(h,s,256);
   if s='TInfuRichViewEdit.UnicodeClass' then
    begin
   SendMessage(h, wm_gettext ,100, lparam( @s[ 1 ]));
   captionw:=WideCharToString(s);
  Form1.Memo2.Lines.Add(captionw);
    end;

S объявлена как s:array[0..256] of WideChar;

[Пепел Феникса]

GetWindowTextW(р,@s[0],Length(s));
а в вашем коде ошибка в том что вы используете второй символ вашего массива, а не первый(вы нумерацию с нуля выставили)