Consulta sobre Forms

[eldiegofg]

Expongo el codigo en cuestion:

if MessageDlg('Eliminar?', mtConfirmation, mbOKCancel, 0, mbCancel) = mrOk then
 
MessageDlg('Ocupada', mtInformation, [mbOK], 0, mbOk)

Dos ejemplos de mi codigo con el MessageDlg que me hacen lo mismo. Quiza el mtError hace que el dialogo se muestre estilo modal, no lo probe, pero si a ti te funciona de esa manera es lo unico que se me ocurre...