Capturar los botones de los cuadro de dialogo

[rgstuamigo]

Chequea éste codigo:

Código Delphi [-]
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;

Saludos...