[cotseec]

Всем доброго....
Вопрос заключается в следующем:
Есть некоторая функция типа shortstring:
SomeFunction(bool_FuncParam: boolean):shortstring;
из разных мест программы в нее могут передаваться четыре переменные (Parall, Ortho, Blinding, Select), соответственно имеющие значение true or false, требуется на выходе функции получить имя входящей переменной при значении true этой входящей переменной, т.е.

Код:

function SomeFunction(bool_FuncParam: boolean):shortstring;
begin
   if not bool_FuncParam then Result:='Nothing' else
   begin
     if .........{bool_FuncParam Name as Parall} then Result:='Parall';
     if .........{bool_FuncParam Name as Ortho} then Result:='Ortho';
     if .........{bool_FuncParam Name as Blinding} then Result:='Blinding';
     if .........{bool_FuncParam Name as Select} then Result:='Select';
   end;
end;

передача значения осуществляется соответственно

Memo1.Lines.Add(SomeFunction(Parall));
Memo1.Lines.Add(SomeFunction(Ortho));
Memo1.Lines.Add(SomeFunction(Blinding));
Memo1.Lines.Add(SomeFunction(Select));

Какие могут быть соображения по данному вопросу?