тип String

При таком коде, каналы, в которые должны записываться названия ингредиентов постоянно "пролистываются", всегда отображается название последнего

Var   Strok: String;                                   //выбор раствора из выпадающего списка  

Jid1: String;                                     //переменная в которую записывается 1 ингредиент   

Jid2: String;                                     //переменная в которую записывается 2 ингредиент 

Begin  

 Strok:= ReadValue('Список растворов');  

 If Strok='1' then  

 Jid1:='Вода';  

 Jid2:='Ацетат свинца';   

WriteValue('1 жидкость',Jid1);   

WriteValue('2 жидкость',Jid2);  

 If Strok='2' then  

 Jid1:='Вода';  

 Jid2:='Сульфат алюминия';   

WriteValue('1 жидкость',Jid1);  

 WriteValue('2 жидкость',Jid2);  

 end. 

end

Если выбрать тип Jid1 и Jid2 Integer, и записать в них числа, то все работает как надо, а со строковыми не получается, при этом код одинаков в обоих случаях.В чем проблема?