constructor TDLLDialog.Create(aOwner: TComponent);
var
BtnShowMessage: TButton;
StatusBar1: TStatusBar;
begin
inherited CreateNew(aOwner);
Caption := 'This form is in a DLL !!!';
Position := poWorkAreaCenter;
Width := 200;
Height := 100;
BtnShowMessage := TButton.Create(Self);
BtnShowMessage.Parent := Self;
BtnShowMessage.Caption := 'Show message';
BtnShowMessage.AutoSize := True;
BtnShowMessage.OnClick := @BtnShowMessageClick;
StatusBar1 := TStatusBar.Create(Self);
StatusBar1.Parent := Self;
end;