[tulio]

Hola

Estoy tratando de generar los informes con un impresor fiscal hasar 2da G. y me da errores cuando compilo, ahi les paso el codigo y si alguien los uso , me podrian decir que estoy haciendo mal
Graciasss

Código Delphi [-]
Procedure TFormu_Factura.BitBtn1Click(Sender: TObject);
 var
  imprime:boolean;
  Jhasar: variant;///ImpresoraFiscalRG3561;
  Puerto:Integer;
  Destino:WideString;
  respabrir: RespuestaAbrirDocumento;
  estilo:AtributosDeTexto;
  respcierre:RespuestaCerrarDocumento;
  tiempo: OleVariant;
  bloque:RespuestaObtenerPrimerBloqueReporteElectronico;

 begin
  If MEssageDLg('CONFIRMA  GENERAR ARCHIVO ? ',mtconfirmation, [Mbno,Mbok],0)=mrok then
    Begin
      Jhasar := CreateComObject(CLASS_ImpresoraFiscalRG3561) as _ImpresoraFiscalRG3561;
      Puerto:=5000;
      Destino:='127.0.0.1';
      tiempo := 15000;
      Jhasar.Conectar(destino,puerto,tiempo,tiempo);
 32 bloque := Jhasar.ObtenerPrimerBloqueReporteElectronico('01/05/2024','07/05/2024',TiposReporteAFIP.ReporteAFIPCompleto);
 33 GrabarEnArchivo('Archivo.txt', bloque.Informacion);
 34 while (bloque.Registro <> IdentificadorBloque.BloqueFinal) do
       begin
 36     bloque := Jhasar.ObtenerSiguienteBloqueReporteElectronico();
          GrabarEnArchivo('Archivo.txt', bloque.Informacion);
      end;
 39    ConvertirABinario('Archivo.txt');
    End;
End;
te paso las lineas que me da error
[Error] FACTURA.pas(32): Object or class type required
[Error] FACTURA.pas(32): Incompatible types: 'RespuestaObtenerPrimerBloqueReporteElectronico' and 'Variant'

[Error] FACTURA.pas(33): Undeclared identifier: 'GrabarEnArchivo'
[Error] FACTURA.pas(34): Object or class type required
[Warning] FACTURA.pas(2334): Comparing signed and unsigned types - widened both operands
[Error] FACTURA.pas(36): Incompatible types: 'RespuestaObtenerPrimerBloqueReporteElectronico' and 'Variant'
[Error] FACTURA.pas(36): Incompatible types: 'RespuestaObtenerPrimerBloqueReporteElectronico' and 'Variant'
[Error] FACTURA.pas(39): Undeclared identifier: 'ConvertirABinario'