procedure loadgraphic(naam:string);
var
 HResInfo: THandle;
 BMF: TBitmapFileHeader;
 MemHandle: THandle;
 Stream: TMemoryStream;
 ResPtr: PByte;
 ResSize: Longint;
 null:array [0..8] of char;
begin
 strpcopy (null, naam);
 HResInfo := FindResource(HInstance, null, RT_Bitmap);
 ResSize := SizeofResource(HInstance, HResInfo);
 MemHandle := LoadResource(HInstance, HResInfo);
 ResPtr := LockResource(MemHandle);
 Stream := TMemoryStream.Create;
 try
 Stream.SetSize(ResSize + SizeOf(BMF));
 BMF.bfType := $4D42;
 Stream.write(BMF, SizeOf(BMF));
 Stream.write(ResPtr^, ResSize);
 Stream.Seek(0, 0);
 Bitmap:=tbitmap.create;
 Bitmap.LoadFromStream(Stream);
 finally
 Stream.Free;
 end;
 FreeResource(MemHandle);
end;