[MegaPiha]

В Делфи такие диалоги уже предусмотрены. Например так.

If MessageDLG('Вы действительно хотите выйти?',mtConfirmation,[mbYes, mbNo], 0) = mrYes then Close;