delphi中messagebox 和showmessagepos的结合？

delphi中messagebox 和showmessagepos的结合？？求助
众所周知 messagebox 可以返回
if Application.MessageBox('xxxx？','提示信息',MB_YESNO)=6 then  
然后执行后面的语句

而showmessagepos可以将提示框的位置自由改变

那有没有即可以改变提示框位置，又可以有messagebox提示框 if (按YES按钮后执行代码) THEN 的功能？
messagedlgposhelp可以吗？还是别的？
求

[解决办法]

Delphi(Pascal) code

var  F: TForm;begin  F := CreateMessageDialog('xxxx？', mtConfirmation, [mbYes, mbNo], mbNo);  try    F.Caption := '提示信息';    TButton(F.FindChildControl('Yes')).Caption := '是(&Y)';    TButton(F.FindChildControl('No')).Caption := '否(&N)';    F.Left := 1;    F.Top := 100;    case F.ShowModal() of      mrYes: ShowMessage('Yes clicked');      mrNo: ShowMessage('No clicked');      mrCancel: ShowMessage('close');    end;  finally    F.Free  end;end;