1:
2:
3:

  ButtonNames: array[TMsgDlgBtn] of string = (
    'Yes', 'No', 'OK', 'Cancel', 'Abort', 'Retry', 'Ignore', 'All', 'NoToAll',
    'YesToAll', 'Help');					

1:
2:
3:

CreateMessageDialog('Text', mtInformation, mbYesNoCancel);
FindComponent(ButtonNames[mbYes]);
.......?					

1:
2:
3:

Var
  Form: tForm;
  Button: tComponent;					

1:

Form := CreateMessageDialog ('Text', mtInformation, mbYesNoCancel);					

1:

Button := Form.FindComponent ('Yes');					

1:

If Assigned (Button) and (Button is tButton) Then					

1:

tButton (Button).Caption := 'Hallo';