[BlackDizel]

на данный момент реализовано следубщим образом:

Код:

if popsender=formwork
then str:='ðàáî÷àÿ ôîðìà ëàáîðàòîðíîé ðàáîòû'
else
begin
  if popsender=tabArray
  then str:='çàêëàäêà ðàáîòû ñ ìàññèâîì'
  else
  begin
    if popsender=tabmatrix
    then str:='çàêëàäêà ðàáîòû ñ ìàòðèöåé'
    else
    begin
      if popsender=tabString
      then str:='çàêëàäêà ðàáîòû ñ ñòðîêîé'
      else
      begin
        if popsender=panel1
        then str:='ïàíåëü ââîäà çíà÷åíèé ìàññèâà'
        else
        begin
          if popsender=panel4
          then str:='ïàíåëü âûáîðà çàäàíèÿ äëÿ ìàññèâà'
          else
          begin
            if popsender=panel2
            then str:='ïàíåëü ââîäà ðàçìåðîâ ìàòðèöû'
            else
            begin
              if popsender=panel3
              then str:='ïàíåëü çíà÷åíèé ìàòðèöû'
              else
              begin
                if popsender=panel5
                then str:='ïàíåëü âûáîðà çàäàíèÿ äëÿ ìàòðèöû'
                else str:='âûçîâ ýòîãî îêíà áûë íåâîçìîæåí';
              end;
            end;
          end;
        end;
      end;
    end;
  end;
end;
showmessage(str);

работает, но код неприятен глазу, ибо наличествует многократное повторение одиннаковых вложенных операций.

p.s. фиг с ней, с кодировкой