Ola...Criei a seguinte função:

==================================

Input

Distancia(50);
MediaL(21);
MediaC(5);

Var
mm5,mm21, afastC, afastV : INTEGER; 

Begin
/////////////////  D E F I N I Ç Ã O    M E D I A S  MM21  E  MM5
   mm21   := media(MediaL,fechamento);
   mm5    := mediaexp(MediaC,fechamento);
   
//////////// C A L C U L O   D I S T A N C I A  DE   M É D I A S 
   afastC  := ABS(mm21-mm5);
   afastV  := ABS(mm5-mm21);

/////////// P L O T A G E M    M É D I A S   
   Plot(mm5);
   SetPlotColor(1,255); 
   SetPlotWidth(1,3);

   Plot2(mm21);
   SetPlotColor(2,clnavy); 
   SetPlotWidth(2,3);

////////////////// R E G R A   C O L O R A Ç ÃO

   If afastc  <= Distancia then
    SetPlotColor(1,clpreto);

   If afastc  <= Distancia then
    SetPlotColor(2,clpreto);

   If afastv  <= Distancia then
    SetPlotColor(1,clpreto);

   If afastv  <= Distancia then
    SetPlotColor(2,clpreto);

 
end;

Quando a chamo :

==================

begin

NL_RBMDCL(50,21,5);

end;

Esta sendo apresentado a seguinte msg de erro:

Parser[5,1]: Não é possível começar um statement com uma chamada de função que retorna um valor (NL_RBMDCL)
Erro de Sintaxe

Obrigadoooo