Standard-Dialoge

[Die Muhkuh]

oder gleich so:

Delphi-Quellcode:

case MessageDlg('Artikelnummer einfuegen?', mtWarning, [mbYesToAll,mbYes,mbCancel], 0); of
  mrYes:
  begin

  end;

  mrCancel:
  begin

  end;

[...]
end;