menggunakan IF pada MessageDlg di Delphi

berikut coding nya

if MessageDlg('benar dihapus....', mtError, [mbYes, mbNo], 0) = mrYes then
begin
   adoquery2.Active := false;
   adoquery2.SQL.Clear;
   adoquery2.SQL.Add('aaaaaaaaaaaa');
   adoquery2.ExecSQL;
end;

daftar TMsgDlgBtn Value  dan  return value

mbOK               => mrOk
mbCancel         =>   mrCancel
mbYes              =>  mrYes
mbNo               =>  mrNo
mbAbort           =>  mrAbort
mbRetry           =>  mrRetry
mbIgnore          =>  mrIgnore
mbAll              => mrAll
mbNoToAll      =>     mrNoToAll
mbYesToAll     =>     mrYesToAll
mbClose           =>  mrClose