if MessageBox(self.Handle,'真的要删除吗？','提示',MB_OKCANCEL OR    MB_ICONINFORMATION)  = IDOK then
 begin
//删除
end
else
begin
// 不删除
end;