Переключение экранов, с использованием функциональных клавиш F1..F3
IF Klava=1 THEN (*F1*)
SetWorkScreen(ScreenNumber:=0);
ELSIF
Klava=2THEN (*F2*)
SetWorkScreen(ScreenNumber:=1);
ELSIF
Klava=256 THEN (*F3*)
SetWorkScreen(ScreenNumber:=2);
END_IF

аналогично через CASE