findwindowex не обнаруживает LabeledEdit (Клавиатура для сенсорной панели)

[TilerDerton]

Доброго времени суток.
Делаю экранную клавиатуру (Компонент не подходит, т.к. нужна юникод-клавиатура, не привязанная к языку системы), столкнулся с интересным моментом:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
   wnd: HWND;
   cn: string;
   
begin
   cn:=activecontrol.Name;
   Memo2.Lines.Clear;
   Memo2.Lines.Add(cn);
   wnd:=findwindowex(form1.Handle, 0, 0, strtoPchar(cn));
   memo2.Lines.Add(inttostr(wnd));
   SendMessage(wnd, WM_CHAR, Ord(1056), 0);
end;

На форме Edit, LabeledEdit. Кнопка корректно возвращает хэндл Edit и печатает в него, когда в фокусе LabeledEdit - возвращает ноль.
Проблема решена очевидной заменой на Edit и Label. Тем не менее, интересно, что я делал не так?

Среда Rad XE2

[Аватар]

   wnd:=FindWindowEx(form1.Handle, 0, 'TLabeledEdit',nil);

Так находит первое.

wnd:=FindWindowEx(form1.Handle, 0, 'TLabeledEdit',PAnsiChar(LabeledEdit1.Text));
wnd:=FindWindowEx(form1.Handle, 0, nil,PAnsiChar(LabeledEdit1.Text));

Так находит с текстом. По имени вообще не находит

[TilerDerton]

Я сейчас посмотрел и понял, что сам себе намудрил проблему. В коде первого поста проблема в другом, он вообще находит элемент, только если тот имеет текст такой же, как и его имя.
Для решения поставленной задачи (Печать в активный Edit) достаточно следующего:

SendMessage(activecontrol.Handle, WM_CHAR, Ord(1081), 0);