Olá, sou muito novo na programação, pego um pedaço aqui e outro ali e vou montando meu código (vira um Frankenstein). Eu gostaria de melhorias no meu código de backtest do profit que também me permita limitar a quantidade de operações diárias, segue meu código atual.

Const
// configuração
RespiroTicks = 0;
TicksGain = 200;
TicksStop = 200;
TicksEntrada = 100;
DayTrade = Verdadeiro;
HoraEntradaInicio = 0900;
HoraEntradaFim = 1700;
HoraFechamento = 1730;

var
SinalC, SinalV : Booleano;
EntradaC, StopC, AlvoC : Real;
EntradaV, StopV, AlvoV : Real;
R : Real;

Inicio
{Calculos}
R := Respiroticks * MinPriceIncrement;
{setup}
SinalC := (closeD(1) + TicksEntrada) = (closeD(1) + TicksEntrada);
SinalV := (closeD(1) - TicksEntrada) = (closeD(1) - TicksEntrada);

{coloração}
Se SinalC entao PaintBar(clVerde);
Se SinalV entao PaintBar(clVermelho);
{operações diárias}

{Busca entrada}
Se (Buyposition = 0) e (sellposition = 0) e
((Daytrade e (Time >= horaentradainicio) e (Time < horaentradafim)) ou
( DayTrade = Falso ) ) entao
inicio
{compra}
Se SinalC entao
inicio
EntradaC := closeD(1) + TicksEntrada;
StopC := EntradaC - TicksStop;
AlvoC := EntradaC + TicksGain;
BuyStop(EntradaC,EntradaC);
SellToCoverLimit(AlvoC);
SellToCoverStop(StopC,StopC);

fim;
{venda}
se SinalV entao
inicio
EntradaV := closeD(1) - TicksEntrada;
StopV := EntradaV + TicksStop;
AlvoV := EntradaV - TicksGain;
Sellshortstop(EntradaV, EntradaV);
Buytocoverlimit(AlvoV);
Buytocoverstop(StopV, StopV);

fim;
fim;
{Somente se estiver comprado - Buscar saída}
Se (BuyPosition > 0) entao
inicio
SellToCoverLimit(AlvoC);
SellToCoverStop(StopC,StopC);
Se (Minima <= StopC) então selltocoveratmarket;
fim;
{Somente se estiver vendido - Buscar saída}
Se (sellposition > 0) entao
inicio
buyToCoverLimit(AlvoV);
buyToCoverStop(StopV,StopV);
Se (maxima >= StopV) então buytocoveratmarket;
fim;
{Fechar Posiçoes no final do dia}
Se (Daytrade) e (Time >= HoraFechamento) entao ClosePosition;
Fim;