OpenPrinter no compila.

[josemmerida]

De los trucos del club tengo este codigo :

Código Delphi [-]
 procedure ImprimirApi;
 var
    H,Size:Integer;
    Info:PAddJobInfo1;
    F:TextFile;
 begin
   with Printer do
      OpenPrinter(PChar(Printers[PrinterIndex]),H,nil); //  <------ aqui falla
      GetMem(Info,1000);
    try
       AddJob(H,1,Info,1000,Size);
        AssignFile(F,Info^.Path);
        Rewrite(F);
        try
          Writeln(F,'Linea1');
          Writeln(F,'Linea2');
          Writeln(F,'Linea3');
          Writeln(F,'Linea4');
          Writeln(F,'Linea5');
          Writeln(F,'Linea6');
          Writeln(F,'Linea7');
          Writeln(F,'Linea8');
        finally
          CloseFile(F);
        end;
        ScheduleJob(H,Info^.JobId);
     finally
     FreeMem(Info,1000);
     ClosePrinter(H);
    end;
 end;

Pues resulta que al compilar se para en la linea :

OpenPrinter(PChar(Printers[PrinterIndex]),H,nil);

y me dice "Types of actual formal and var parameters must be identical".

Debe ser algo sencillo, pero de Api ando muy verde

¿Alguien me ilumina?.

Gracias Anticipadas y saludos.