TMsgDlgButtons and TMsgDlgBtn.....

[chileno]

hola..
perdonen por el titulo del mensaje no se me ocure nada mejor ...sera por que es san lunes..

bueno aca otra vez...molestando...
se que se puede hacer pero no se como, el problema necesito crear una funcion que me muestre un MessageDlg personalizado (con botones en español y con otro texto...bueno eso ya esta..con vuestra ayuda), pa hacerla corta...mediante un proceso obtengo a lo mas 4 valores, dichos valores me representa 4 botones, ahi todo bien, como no puedo establecer la posible combinatoria de dichos valores a priori. necesito guardar en una variable los distintos botones obtenidos por el proceso....no se si me entienden, la idea es esta:

Código Delphi [-]
type
  TParametros = array[0..3] of integer;
//nroOpciones representa la cantidad de elementos en el array
fuction miMessage(nroOpciones:integer;opciones:TParametros):integer;
var botones:TMsgDlgButtons;
     i          :integer;
begin
     i :=0;
     while i <= nroOpciones do
     begin
         case opciones[i] of
              1 : begin
                      opciones := opciones + buttons_que_corresponda;
                      // aca es el problema, esto esta haci para que entiendad a                           // lo que voy.
                   end;
              .
              .
              .
         end;
         
         i := i + 1;
     end;
     .
     .
     .
     .
end;