Fórum Problemas ao chamar funções administrativas do TEF #379071

Caros colegas,   Estou implementando a rotina do TEF em nossos sistemas e ao compliar estou recebendo o seguinte erro no código que chama a função administrativa do TEf.   Codigo Delphi 7.   if key = vk_F10 then
  begin
    cIdentificacao := Time;   (linha 479)
    FuncaoAdministrativaTEF( cIdentificacao );  (linha 480)
  end;
  As linhas de erro são as seguintes:   [Error] unit_vendasbalcao.pas(479): '(' expected but ')' found
[Error] unit_vendasbalcao.pas(480): ')' expected but 'END' found
[Fatal Error] sac.dpr(68): Could not compile used unit 'unit_vendasbalcao.pas'   Segue código da função Administrativa:   function FuncaoAdministrativaTEF( cIdentificacao: TDateTime ): integer;
var cArquivo        : TextFile;
    lFlag           : longbool;
    cConteudoArquivo: string;
begin    AssignFile( cArquivo, 'INTPOS.001');    // Conteúdo do arquivo INTPOS.001 para solicitar a transação TEF    cConteudoArquivo := '';
   cConteudoArquivo := '000-000 = ADM' + #13 + #10 +
                       '001-000 = ' + FormatDateTime( 'hhmmss', cIdentificacao ) + #13 + #10 +
                       '999-999 = 0';
   ReWrite( cArquivo );
   WriteLn( cArquivo, cConteudoArquivo );
   CloseFile( cArquivo );    CopyFile( pchar( 'INTPOS.001' ), pchar( 'C:\TEF_DIAL\REQ\INTPOS.001' ), lFlag );
   DeleteFile( 'INTPOS.001' ); end;
      Não consigo entender onde está o erro.   Sem mais para o momento agradeço a atenção   Gilson