>>244
これでできました。

procedure TForm1.Button1Click(Sender: TObject);
var
　myLabel:QLabelH;
　myMessage:PWideString;
begin
　new(myMessage);
　myMessage^ := 'HelloWorld';
　myLabel := QLabel_create(myMessage,Form1.Handle,PChar('name'),0);
　QWidget_resize(myLabel,100,100);
　QApplication_setMainWidget(Application.Handle,myLabel);
　QWidget_show(myLabel);
　dispose(myMessage);
end;