1:

messagebox(form1.handle, PChar('Hallo Welt'), PChar('Information.'),0);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

MB_ICONINFORMATION // Info-Icon
MB_ICONERROR // Error-Icon
MB_ICONQUESTION // Frage-Icon
MB_OK // OK-Button
MB_OKCANCEL // OK und CANCEL - Button
MB_YESNO // Ja/Nein-Button
Edit------------------------------------------------------
MB_ABORTRETRYIGNORE // Abbrechen, Wiederholen und Ignorieren
MB_YESNOCANCEL // Ja, Nein, Abbrechen
MB_RETRYCANCEL // Wiederholen, Abbrechen
MB_ICONEXCLAMATION // Warnung-Icon
Edit Ende---------------------------------------------------					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:

The MessageBox function creates, displays, and operates a message box. The message box contains an application-defined message and title, plus any combination of predefined icons and push buttons. 

int MessageBox(

    HWND hWnd,  // handle of owner window
    LPCTSTR lpText,  // address of text in message box
    LPCTSTR lpCaption,  // address of title of message box  
    UINT uType   // style of message box
   );  
 

Parameters

hWnd

Identifies the owner window of the message box to be created. If this parameter is NULL, the message box has no owner window. 

lpText

Points to a null-terminated string containing the message to be displayed. 

lpCaption

Points to a null-terminated string used for the dialog box title. If this parameter is NULL, the default title Error is used. 

uType

Specifies a set of bit flags that determine the contents and behavior of the dialog box. This parameter can be a combination of flags from the following groups of flags. 
Specify one of the following flags to indicate the buttons contained in the message box:

Flag  Meaning
MB_ABORTRETRYIGNORE  The message box contains three push buttons: Abort, Retry, and Ignore.
MB_OK  The message box contains one push button: OK. This is the default.
MB_OKCANCEL  The message box contains two push buttons: OK and Cancel.
MB_RETRYCANCEL  The message box contains two push buttons: Retry and Cancel.
MB_YESNO  The message box contains two push buttons: Yes and No.
MB_YESNOCANCEL  The message box contains three push buttons: Yes, No, and Cancel.
 

Specify one of the following flags to display an icon in the message box:

Flag  Meaning
MB_ICONEXCLAMATION, 
MB_ICONWARNING
  An exclamation-point icon appears in the message box.
MB_ICONINFORMATION, MB_ICONASTERISK
  An icon consisting of a lowercase letter i in a circle appears in the message box.
MB_ICONQUESTION  A question-mark icon appears in the message box.
MB_ICONSTOP, 
MB_ICONERROR, 
MB_ICONHAND
  A stop-sign icon appears in the message box.
 

Specify one of the following flags to indicate the default button:

Flag  Meaning
MB_DEFBUTTON1  The first button is the default button. MB_DEFBUTTON1 is the default unless MB_DEFBUTTON2, MB_DEFBUTTON3, or MB_DEFBUTTON4 is specified.
MB_DEFBUTTON2  The second button is the default button.
MB_DEFBUTTON3  The third button is the default button.
MB_DEFBUTTON4  The fourth button is the default button.
 

Specify one of the following flags to indicate the modality of the dialog box:

...
...
Return Values

The return value is zero if there is not enough memory to create the message box.
If the function succeeds, the return value is one of the following menu-item values returned by the dialog box: 

Value  Meaning
IDABORT  Abort button was selected.
IDCANCEL  Cancel button was selected.
IDIGNORE  Ignore button was selected.
IDNO  No button was selected.
IDOK  OK button was selected.
IDRETRY  Retry button was selected.
IDYES  Yes button was selected.
 
...
...
See Also

FlashWindow, MessageBeep, MessageBoxEx, MessageBoxIndirect, SetForegroundWindow					

1:
2:
3:
4:
5:
6:
7:

  if MessageDlg('Willkommen in meiner Object PascalAnwendung. Jetzt beenden?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    MessageDlg('Programm wird beendet.', mtInformation,
      [mbOk], 0);
    Close;
  end;					

1:
2:
3:
4:
5:
6:
7:

  if Application.MessageBox(PChar('Klicken Sie auf Ja oder Nein'),
    PChar('TestBox'), MB_YESNO + MB_ICONQUESTION) = IDYES then
    begin
      Showmessage('auf Ja geklickt');
    end else begin
      Showmessage('auf Nein geklickt');
    end;