if MarketPosition=1 and BarInterval=interwal then
begin
Positions=1;
Contrakt=CurrentContracts/Lot;
FileAppend("C:\omega\orders\quik.tri", "ACCOUNT=NL0011100043"+";
CLIENT_CODE="+NumToStr(CLIENT_CODE,0)+
";TYPE=L;"+"TRANS_ID="+NumToStr(count,0)
+"CLASSCODE=QJSIM;"+"SECCODE=SBER"+";ACTION=NEW_ORDER;
"+"OPERATION=B;"+"PRICE="+NumToStr(EntryPrice,2)+
";QUANTITY="+NumToStr(Lot,0));
end;