Manejo de Msnpopup

[Choclito]

aclarando cuando se da de alta al paciente en el modulo de enfermeria , con el siguiente codigo:

Código PHP:

procedure TF_Menu_Caja.EventoEventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
If EventName = 'ALTA' then
  BEGIN

MsgBox ('S&S','Paciente dado de alta',MB_OK + MB_ICONINFORMATION);

  END;
end; 


Me muestra el mensaje en el modulo de caja, pero cuando hago click en varios botones que llaman al MsgBox me da el error que anteriormente ya les comente, la verdad nose como arreglarlo,estare agradecido por los comentarios, mil gracias