Var
mm9, mm21 : float;
Compra, Venda, verde, vermelho, RompUp, RompDown : boolean;

begin
    If (currentdate <= 1231231) then
    Begin 
  
 mm9 := MediaExp(9,Close);
 mm21 := MediaExp(21,Close);

 RompUp := mm9 > mm21;
 RompDown := mm9 < mm21;

 Compra := not RompUp[1] e RompUp;
 Venda := not RompDown[1] e RompDown;

 If compra then PlotText("SUGESTÃO DE COMPRA [META]", clLime, 0,9);
 If Venda then PlotText("SUGESTÃO DE VENDA [META]", clRed, 2,9);

End;
end;