aForm:=CreateMessageDialog('message',mtInfomation,[mbYes,mbNo]);aEdit:=TEdit.Create(aForm);...aForm.ShowModal;