[BlackDizel]

юзал поиск, но подобной темы не нашел, если уже существует, просьба кинуть ссылку, а не сапог.

Проблема в следующем:
в одну процедуру есть 9 входов с разных компонентов, соответственно с разными переменными Sender.

Необходимо в зависимости от Sender вызвать соответствующую процедуру при клике по пункту popmenu...

при вызове процедуры клика в popmenu переменная Sender заменяется на MenuItem, и это понятно.
условимся, что решили передать в эту процедуру переменную перечисляемого типа на основе sender'а 'материнской' процедуры

определен тип и переменная этого типа:

Код:

type
TSender=
  (
    Sformwork,
    StabArray,
    Stabmatrix,
    StabString,
    Spanel1,
    Spanel4,
    Spanel2,
    Spanel3,
    Spanel5
  );
var
popsender:TSender;

хотелось бы в процедуре, при передаче параметра Sender, скажем, равным либо formwork,TabArray и пр. задать переменной popsender соответственно значение Sformwork,STabArray и пр.

Есть ли для этого путь в обход 9 операторов if..then либо вложенных if..then..else?