Как динамически создать label?

Язык: delphi
Форма создаётся так
begin
//Получаем описатель модуля
instance :=GetModuleHandle(nil);
//Заполняем структуру WindowClass
WindowClass. style :=CS_HREDRAW or CS_VREDRAW;
WindowClass.Lpfnwndproc:=@windowproc;
WindowClass.Hinstance:=Instance;
WindowClass.HbrBackground:= COLOR_BACKGROUND;
WindowClass.LpszClassName:='DX';
WindowClass.Hcursor:=LoadCursor(0,IDC_ARROW);
//Регистрируем новый класс
RegisterClass (WindowClass);
//Создаем окно
Handle:=CreateWindowEx (0,'DX', '' ,WS_POPUPWINDOW, 250,200, 900, 450,0, 0,Instance,
nil) ;
ShowWindow(Handle, SW_SHOW);
UpdateWindow (Handle)
Дальше нужно создать label
Я пробывал использовать
var
label1:HWND;
begin
label1:=CreateWindow('Label','Привет',WS_CHILD,50,150,300,50,Handle,0,Instance,nil);
ShowWindow(label1,sw_show);
end;
не создаёт

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.