var
  PrinterName: string;
  PrinterHandle: THandle;
  DocumentNumber: string;
  DocInfo: TDocInfo1;
  Command: string;
  BytesWritten: Cardinal;
  Bytes: TBytes;
begin
            if not OpenPrinter(PChar(PrinterName), PrinterHandle, nil) then
              RaiseLastOSError();
            try
              DocInfo.pDocName := PChar(DocumentNumber);
              DocInfo.pOutputFile := nil;
              DocInfo.pDataType := 'RAW';
              if StartDocPrinter(PrinterHandle, 1, @DocInfo) = 0 then
                RaiseLastOSError();
              try
                // for k := 1 to 10000 do    Если надо в цикле печатать этикетки - пускаем тут цикл..
                  if not StartPagePrinter(PrinterHandle) then
                    RaiseLastOSError();
                  try
                    BytesWritten := 0;

                    Command := '^XA^CW T,E:TT0003M_.FNT^CI 28.........^XZ';

                    Bytes := TEncoding.UTF8.GetBytes(Command);
                    if not WritePrinter(PrinterHandle, @Bytes[0], Length(Bytes), BytesWritten) then
                      RaiseLastOSError();
                  finally
                    if not EndPagePrinter(PrinterHandle) then
                      RaiseLastOSError();
                  end;
                end;
              finally
                if not EndDocPrinter(PrinterHandle) then
                  RaiseLastOSError();
              end;
            finally
              if not ClosePrinter(PrinterHandle) then
                RaiseLastOSError();
            end;
end;