Display a confirmation dialog

var buttonSelected : Integer;
begin

buttonSelected:=MessageDlg('Delete ?', mtWarning, [mbYes, mbNo], 0);

     if buttonSelected = mrYes  then
     begin
        //ok
     end;

end;