delphi，点击一个按钮，当点击这个按钮的时候 要弹出一个提醒

confirmation，mbyesnocancel,0)=mryes then
.........//执行语句
else
.........
end.
///////////////////////////////////////////
也可以写成if messagedlg('确认删除？'，mtconfirmation，[mbyes,mbNO],0)=mryes then
.........//执行语句
else
.........
end.
//////////////////////////////////////////////////
或者用messsagebox
procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageBox(Form1.Handle,'确认删除？','删除框',MB_OKCANCEL+MB_DEFBUTTON2)=1 then
............//执行删除语句
else
..........
end;

procedure TForm1.Button1Click(Sender: TObject);
var
sdate, ndate: string;
begin
sdate:= '2011'+'05'+'08'; //可以用Edit控件获取.
ndate:= FormatDateTime('yyyy'+'mm'+'dd', Now);
if ndate > sdate then
begin
ShowMessage('已超出指定日期!'); //内容自定义.
end;
end;