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

有一段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该如何写?