// x_inicializacao import, with I delete this import the project is compiled without errors.
uses SysUtils, Classes, httpdefs, fpHTTP, fpWeb, x_inicializacao;
procedure TFPWebModule1.DataModuleRequest(Sender: TObject; ARequest: TRequest;
AResponse: TResponse; var Handled: Boolean);
var CaminhoArquivo: String;
Schema: String;
DataInicial: String;
DataFinal: String;
CodigoUnidade: Integer;
begin
Schema := ARequest.QueryFields.Values['Schema'];
DataInicial := ARequest.QueryFields.Values['DataInicial'];
DataFinal := ARequest.QueryFields.Values['DataFinal'];
CodigoUnidade := StrToInt(ARequest.QueryFields.Values['CodigoUnidade']);
// With I delete the following line the project is compiled without errors:
CaminhoArquivo := gerar(Schema, DataInicial, DataFinal, CodigoUnidade);
AResponse.ContentType := 'text/plan';
AResponse.Contents.LoadFromFile(CaminhoArquivo);
Handled := True;
end;