将bmp图像传到条码打印机上 ( 积分: 0 )

各位大峡,哪为能将下列vb代码转为delphi,谢谢
vb代码如下:
Open "C:/Documents and Settings/Administrator/桌面/test2/1234.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
Print #1, C$;
"V400";
C$;
"H250";
C$;
"XMPRINTED BY SATO CLXXX(e) PRINTER";