uses modul;
var
  x: T;

begin
  x := 'left';
  //x.print;

  x := 'right'; // <--- Здесь - работаешь со строкой
  //x.print;

  x := up; // <--- А тут - с перечислимым типом
  //x.print;
end.