شما میتونید از کد زیر استفاده کنید :
{
Var
MsgText, MsgCaption : String;
MsgType, UserResp : integer;
}
MsgCaption := 'عنوان پیغام شما';
MsgText := 'آیا مطمئن هستید که میخواهید رکورد مورد نظر را پاک کنید؟';
MsgType := MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2 + MB_APPLMODAL + MB_RIGHT + MB_RTLREADING;
UserResp := MessageBox( Handle, PChar(MsgText), PChar(MsgCaption), MsgType);
{ UserResp := MessageBox( Handle, 'آیا مطمئن هستید که میخواهید رکورد مورد نظر را پاک کنید؟', 'عنوان پیغام شما', $180124); }
Case UserResp of
IDYES :
begin
end;
IDNO :
begin
end;
end;