[RN3QGA]

Ну уж все таки еще момент.

0: flash := 1; // здесь может быть целая подпрограмма, а не один оператор

То есть мо жно так:

case g of
0: then begin.......... end;
1: then begin.......... end;
end;

Правильно понял?