{
MessageDlgPos example
This example uses a button on a form. When the user clicks the button, a message box appears with a Yes, No, and Cancel button on it:
} 
procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlgPos('Are you there?',mtConfirmation, mbYesNoCancel, 0, 200, 200, mbYes);
end; 
