Algo un poco mas practico seria con una variable de tipo word pero es lo mismo
.
Código Delphi
[-]
var
respuesta: word;
begin
respuesta:= MessageDlg('¿Salir sin guardar?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
If respuesta=mrYes then begin
end;
If respuesta=mrNo then begin
end;
If respuesta=mrCancel then begin
end;
end;
Salu2