TADVAlertWindow

  AdvAlertWindow1.AlertMessages.Add.Text.Text := s;
  AdvAlertWindow1.Last;
  AdvAlertWindow1.Show;

tms套件中控件，做消息提示框效果非常好。