Ta MessageBox renvoit une valeur de type TMessageButton

teste la valeur

PS: Tout est dans l'aide de Delphi