[ecfisa]

Hola Neg90.

Otra opción que te puede servir es usar la función API indocumentada MessageBoxTimeout:

Código Delphi [-]
...  
    MessageBoxTimeout(Application.Handle,                   // HWND
                    'El libro fue agregado correctamente',  // text
                    'AVISO',                                // caption
                    MB_ICONINFORMATION + MB_SETFOREGROUND,  // icono
                    0,                                      // LangId (0)
                    700);                                   // milisegundos (a gusto)

Saludos