标签打印机打印图片的问题(有vb代码,如何转为delphi)


有一段vb打印图片的程序,哪位DFW给翻译成Delphi;
vb:
  Open "C:\Documents and Settings\Administrator\桌面\test2\logo.BMP" For Binary As #2
           A$ = "   "
           For I = 1 To 7572
               Get #2, I, A$
                  Print #1, A$;                  For K = 1 To 100
                      Next K
                   Next I
  delphi该如何写?