HBITMAP в новом компоненте TBitmap

[vova65]

Подскажите пожалуйста новичку... как мне вывести HBITMAP картинки bmp...
что я в функции GetHandle не правильно делаю?
насколько я понял то HBITMAP - это указатель на структуру bmp (BITMAPFILEHEADER,BITMAPINFOHEADER, RGBQUAR).. или я ошибаюсь?

unit MBitmap;

interface

uses
  SysUtils, Classes, Dialogs;

type  HBITMAP = type LongWord;
type
  TMBitmap = class(TObject)
  private
    { Private declarations }
  function GetHandle: HBITMAP; virtual;
  protected
    { Protected declarations }
  public
    { Public declarations }
  Byte:array of byte;
  //PByte:^Byte;
  HByte:^HBITMAP;
  IByte:^LongWord;
  ByteZ:byte;
  property Handle: HBITMAP read GetHandle;
  constructor Create(FN:string); overload;
  published
    { Published declarations }
  end;

//procedure Register;

implementation

{procedure Register;
begin
  RegisterComponents('Standard', [TMBitmap]);
end;}

{ TMBitmap }

constructor TMBitmap.Create(FN:string);
Var F:File;
begin
    AssignFile(F,FN);
    Reset(F, 1);
    SetLength(Byte,FileSize(F));
    BlockRead(F,Byte[0],5);
    CloseFile(F);

    //showmessage(inttostr(Byte[1]));
    inherited Create;
end;

function TMBitmap.GetHandle: HBITMAP;
begin
HByte:=Addr(Byte);
//IByte:=Addr(Byte);
//showmessage(inttostr(IByte^));
Result:=HByte^;
end;

end.

[vova65]

с присвоением Pointer -> HBITMAP методом научного тыка разобрался..

function TMBitmap.GetHandle: HBITMAP;
var s:^integer;
begin
s:=@Byte[0];
asm
 mov eax,s
 mov Result,eax
end;
end;

подскажите пожалуйста на что именно указывает HBITMAP???

[vova65]

никто не знает чтоли? или всем лень писать?