считывание bmp из файла на канву

[Mayday_007]

Здравствуйте, прошу помочь со считованием моно bmp картинки на канву напрямую с файлом, с 24 битным изображением затруднений не возникло, представляю код на делфи, как реализовать вывод на канву однобитного файла и какова структурная разница между ними?
Я понял только то, что в отличии от 24 б изображения, моно картинка читается по байту на цвет, а не триплексом, и еще: почему абсолютное смещение в моно картинке 62, а не 54 как в 24 б изобр.

bmFileHeader = packed record	{заголовок файла}
    Typf : word;        {сигнатура }
    Size : longint;     {длина файла в байтах}
    Res1 : word;        {зарезервировано}
    Res2 : word;        {зарезервировано}
    OfBm : longint;     {смещение изображения в байтах (1078)}
  end;
  bmInfoHeader =packed record   {информационный заголовок}
    Size : longint;       {длина заголовка в байтах (40)}
    Widt : longint;       {ширина изображения (в точках)}
    Heig : longint;       {высота изображения (в точках)}
    Plan : word;          {число плоскостей (1)}
    BitC : word;          {глубина цвета (бит на точку) (8)}
    Comp : longint;       {тип компрессии (0 - нет)}
    SizI : longint;       {размер изображения в байтах}
    XppM : longint;       {горизонтальное разрешение}
 		          {(точек на метр - обычно 0)}
    YppM : longint;       {вертикальное разрешение}
		          {(точек на метр - обычно 0)}
    NCoL : longint;       {число цветов}
		          {(если максимально допустимое - 0)}
    NCoI : longint;       {число основных цветов}
  end;
  bmRGBTriple = packed record
    blue :byte;
    green :byte;
    red :byte;
  end;

  bmHeader24 =packed record       {полный заголовок файла}
    f : bmFileHeader;     {заголовок файла}
    i : bmInfoHeader;     {информационный заголовок}
  end;

  bmhptr = ^bmHeader24;

  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Label1: TLabel;
    OpenDialog1: TOpenDialog;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
bmpfile:file;
i,j,x1,y1,t:integer;
h:bmheader24;
begin
opendialog1.Execute;
 assignfile(bmpfile,opendialog1.filename);
 image1.Refresh;
  reset(bmpfile,1);
  blockread(bmpfile,h,sizeof(h));   {чтение заголовка}
  label2.Caption:=inttostr(h.f.OfBm);
  label1.Caption:='Размер файла   -   '+inttostr(h.f.Size)+' байт'+#13+
                  'Разрешение      -   '+inttostr(h.i.Widt)+'x'+inttostr(h.i.Heig)+' пикс'+#13+
                  'Количество бит -  '+inttostr(h.i.BitC)+' бит';
  image1.Width:=h.i.Widt;
  image1.Height:=h.i.Heig;
    x1:=-1;
    y1:=-1;
if h.i.BitC=24 then begin
///////////////////////////////////
 for i:=1 to (h.i.widt*h.i.Heig) do
  begin
    blockread(bmpfile,r,sizeof(r));
     if i mod h.i.widt=1 then inc(y1);
     x1:=i mod h.i.Widt;
    image1.Canvas.Pixels[h.i.Widt-x1,h.i.Heig-y1]:=r.blue Shl 16 Or r.green Shl 8 Or r.red;
  end;