img=loadimage("1.bmp")
function test_image(handle:Thandle):Thandle;stdcall; var bitmap:Tbitmap; begin ..... ..... ..... end;