[Resolvido] MessageBox

Tenho montado isso até o momento:

case MessageBox(Application.Handle, PChar('Atenção!'+#13+'O sistema localizou ' + inttostr(cont) + ' parcelas para esta nota.'+#13+''+#13+'Deseja excluir todas?'), 'Aviso', MB_YESNOCANCEL + MB_ICONQUESTION + MB_DEFBUTTON3) of
idYes: ; //excluir todas
idNo: ; //excluir apenas a selecionada
IDCANCEL: exit;
Então baseado nisso, se eu clicar em SIM, devo executar essa sql:

Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.text:='delete from parcelas where id = '+dbedit1.text+'';
 Query1.ExecSQL;
 frmdm.tbparcelas.Refresh;

Como colocar isso no idyes?