[dec]

Hola,

Código Delphi [-]
if (MessageDlg('¿Quieres continuar?', 
 mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
begin
  // Borrar el registro
end;