Erro de Declaração

Olá pessoal to com seguinte problema na seguinte linha de comando para um filtro mas ta dando um erro na linha que esta escrito

Result := #39 + formataDataSql(StrToDate(Pesq)) + 39;

esse é o erro qual seria a declaração q eu tenha q fazer ja tentei um monte mas num deu certo bom eu uso esse filtro no delphi 7 so q estou ela agora no 6 e por isso ta dando o erro no 7 naum da erro

[Error] unFiltroDados.pas(439): Undeclared identifier: ´formataDataSql´

with DataSet do begin
if OpeIndex < 2 then begin
case Fields[ColIndex].DataType of
ftString :
begin
Result := 39 + Pesq + 39;
end;
ftInteger :
begin
Result := Pesq;
end;
ftDate, ftDateTime :
begin
Result := 39 + formataDataSql(StrToDate(Pesq)) + 39;
end;
ftFloat, ftCurrency, ftBCD :
begin
Result := Pesq;
end;
else begin
begin
Result := Pesq;
end;
end;
end;
end else begin
case OpeIndex of
2 :
begin
Result := #39 + Pesq + ´¬´ + 39;
end;
3 :
begin
Result := 39 + ´¬´ + Pesq + 39;
end;
4 :
begin
Result := 39 + ´¬´ + Pesq + ´¬´ + 39;
end;
end;
end;
end;