procedure TForm1.Button1Click(Sender: TObject);
begin
Case MessageDlg('La información correspondiente al rango de consumo ya se encuentra creada. '+
#13 + '¿Desea Modificarla?',MtConfirmation, [mbYesToAll, MbNo],0) of
mrYesToAll :ShowMessage('Se presiono "Si a Todo"');
mrNo :ShowMessage('Se presiono "No"');
end;
end;