var cvp:word;
begin
 cvp:=Application.MessageBox('UYARI : Kaydı Silmek İstediğinize Eminmisiniz ?',
              'Kayıt Silme',
              MB_YESNO+
              MB_ICONEXCLAMATION+
              MB_DEFBUTTON1+
              MB_SYSTEMMODAL);
 if cvp=IDYES then
   dm.Tblenjeksiyon.Delete;
--------------------------------------------------------------------------------
-------------
edite göre ayarlı
Application.MessageBox(pchar(edit1.text + ' adı kullanıcı bulunamadı'),
              'Arama',
              MB_OK+
              MB_ICONEXCLAMATION+
              MB_DEFBUTTON1+
              MB_SYSTEMMODAL);
--------------------------------------------------------------------------------
-------------
düz
Application.MessageBox('adı kullanıcı bulunamadı',
              'Arama',
              MB_OK+
              MB_ICONEXCLAMATION+
              MB_DEFBUTTON1+
              MB_SYSTEMMODAL);
--------------------------------------------------------------------------------
-------------
mesajda alt satıra geçmek
IF ( Application.MessageBox('UYARI : Program Terk edilecek !'+#13+'Onaylıyor 
musunuz?',
              'Program Çıkışı',
              mb_YesNo+          // Buton seçimleri 
(uygun grup kullanılır.)
              mb_IconQuestion+       // dialog simgesi
              mb_DefButton1+        // default Seçili 
buton 'EVET'
              mb_SystemModal)  )     // Sistem bu cevabı 
bekler
                         =IdYes // Seçim Evet ise
 Then Form1.Release
  Else Action :=CaNone;