Erro ao atualizar pacotes do ACBr

[Tercio Lins]

Boa noite a todos.

Após atualizar hoje(27/10/2016) os fontes do ACBr pelo SVN, ocorreu um erro ao compilar os pacotes(Uso Lazarus).
Quando ocorre isso, normalmente eu excluo tudo e faço o download outra vez.
Ocorreu o mesmo erro.

Função:

Printer.Write(AString);

ACBrDevice.pas(1569,25) Error: Wrong number of parameters specified for call to"Write"

Esta função tem outros parâmetros: 

write(const Buffer; Count: integer;var Written: integer): boolean;
 

Abaixo a procedure.

procedure TACBrDevice.EnviaStringRaw(const AString: AnsiString);
var
  PrnIndex: Integer;
  PrnName, DocName: String;
  {$IfNDef FPC}
  HandlePrn: THandle;
  N: DWORD;
  DocInfo1: TDocInfo1;
  {$EndIf}
begin
  DocName := 'ACBrDevice';  // TODO: permitir informar o nome em Properties

  PrnIndex := GetPrinterRawIndex;

  {$IfDef FPC}
  Printer.PrinterIndex := PrnIndex;
  Printer.Title := DocName;
  Printer.RawMode := True;
  Printer.BeginDoc;
  Printer.Write(AString);
  Printer.EndDoc;        
  {$Else}
  PrnName := Printer.Printers[PrnIndex];
  if not OpenPrinter(PChar(PrnName), HandlePrn, nil) then
    raise Exception.CreateFmt(ACBrStr(cACBrDeviceImpressoraNaoEncontrada), [PrnName]);

  with DocInfo1 do
  begin
    pDocName := PChar(DocName);
    pOutputFile := nil;
    pDataType := 'RAW';
  end;

  StartDocPrinter(HandlePrn, 1, @DocInfo1);
  WritePrinter(HandlePrn, PAnsiChar(AString), Length(AString), N);
  EndPagePrinter(HandlePrn);
  EndDocPrinter(HandlePrn);
  ClosePrinter(HandlePrn);
  {$EndIf}
end;

Grato,

Tércio Lins.
 

[Iaster Costa Aki]

Estou com o mesmo problema na impressão de etiquetas! O exemplo em Lazarus também esta dando erro!

[Alexsander]

Ocorreu no Lazarus 1.4.4, existe algum workaround para contornar o problema?