Alegro - exemplo de como imprimir

unit Impressora1Unit;

interface

uses Forms, CPort, Classes, Controls, StdCtrls, ARotinasUnit;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Porta: TComPort;

    procedure Button1Click(Sender: TObject);

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

const

  Header : array[1..7] of String = ('H10', #2 + 'L', #2 + 'f220', #2 + '00265', 'PO', 'SO', 'D11');

  Footer : array[1..2] of String = ('Q0001', 'E');

  Comando = '131100002510020' + 'BOSTA';

procedure TForm1.Button1Click(Sender: TObject);

var

  I: Integer;

begin

  Porta.Open;

  if Porta.Connected then

  begin

    for I := 1 to 7 do Porta.WriteStr(Header[I] + #13);

    Porta.WriteStr(Comando + #13);

    for I := 1 to 2 do Porta.WriteStr(Footer[I] + #13);

    Porta.Close;

    msgInforma('OK?');

  end

  else

    msgErro('ERRO');

end;

end.