[delphicoding]

Блин фигня то какая, а почему не может то?!
то есть в таком случае писать можно только через конструкцию:

Код:

IF TYPE=1 THEN a_shift=:shift; else
IF TYPE=2 THEN b_shift=:shift; else
IF TYPE=3 THEN c_shift=:shift; 

Криво как-то!