IF stcom1=1 THEN istatecom1:=2;
ELSE istatecom1:=13;
mem.MemFill(array1[0],22,0);
END_IF

соответственно array1 - array[0..22] of word