求单色位图的点阵数据？(56分)

一单色位图，求在300dpi分辨率下每点的值或转化为点阵数据也可。
300dpi 1mm打12个点，1mm对应扫描线也要12条，黑色为 1 白色为 0
我用在300dpi打印机上，1打0不打,这样完成打印工作。打印机自己开发的。

XScale := GetDeviceCaps(Printer.Handle, LOGPIXELSX) div Screen.PixelsPerInch;
300dpi打印机 XScale=3
比如一位图H:86;W:96对应300DPI求点阵数据时[red]是否先要将其放大XScale倍[/red]，然后通过Scanline访问每一点数据（0 or 1 ）？然后每8点组成一字节。

在鼠标点右键的时候可以得到该控件的类型和名称，你可以在要复制的地方新键这个控件并且把原来的属性都给它
动态生成的时候指定PopupMenu属性PopupMenu（POP菜单）
var aImage,bImage :TImage;
ob:Tobject;
begin
//ob:=Tobject.Create;
aImage:=PopupMenu.PopupComponent as TImage;
ob:=PopupMenu.PopupComponent.ClassType.Create ;
bImage:=(TImage)ob;
然后就可以设置bImage的所有属性，包括要放置的位置
......