Ayuda con este código que me dejaron

[dec]

Hola,

Bueno. Algo así podría valer:

Código Delphi [-]
  case MessageDlg('Desea Capturar Otra Orden de Servicio ?', mtConfirmation, [mbYes, mbNo], 0) of
    mrYes:
    begin
      ShowMessage('Pulsaste el botón mbYes');
    end;
    mrNo:
    begin
      ShowMessage('Pulsaste el botón mbNo');
    end;
  else
    ShowMessage('Cerraste el diálogo sin pulsar ningún botón');
  end;

O algo así también:

Código Delphi [-]
  if (MessageDlg('Desea Capturar Otra Orden de Servicio ?',
   mtConfirmation, [mbYes, mbNo], 0) = mrNo) then
  begin
    ShowMessage('Pulsaste el botón mbNo');
  end
  else
  begin
    ShowMessage('No pulsaste el botón mbNo');
  end;