argument:=OLE2.Create_arglist;
 OLE2.Add_arg(argument,'A2');
 range_e:=OLE2.Get_obj_property(worksheet,'Range',argument);
 OLE2.Invoke(range_e,'Select');
 OLE2.Destroy_arglist(argument);
 OLE2.Set_property(range_e,'Orientation', 0 );

 argument:=OLE2.Create_arglist;
 
 OLE2.Add_arg(argument,indexCell1);
 OLE2.Add_arg(argument,indexCell2);	 

 range_e:=OLE2.Get_obj_property(worksheet,'Cells',argument);
 OLE2.Destroy_arglist(argument);
 PropertiesCell(range_e,'Time New Roman', 10 ,true, 7 );
 OLE2.Set_property(range_e,'FormulaR1C1','ТЕКСТ);