十万火急，各位帮忙吗？？

if application.MessageBox('已有一笔相同的记录，是否要保存本笔记录？','警告!!',MB_YESNO)=IDNO then
begin  
dm1.main.Append;
end;
此句运行有错，可能是我还没掌握application.MessageBox的用法，达不到我想要的效果。到底该怎样用？不盛感激！