[pirsddd]

Решение:
1) CreateWindowExW(WS_EX_CLIENTEDGE, 'edit', nil, WS_CHILD or WS_VISIBLE or ES_AUTOHSCROLL, 0, 0, 121, 21, Form1.Handle, 0, 0, nil);
2) TntWare Unicode Controls.
3) Delphi 2009, 2010, XE, XE2.