var
bmp:tbitmap;
MyImage: TBGRABitmap;
begin
MyImage := TBGRABitmap.Create;
bmp:=tbitmap.Create;
myimage.LoadFromFile('1.bmp');
bmp.SetSize(myimage.Width,myimage.Height);
bmp.Canvas.Draw(0,0,myimage.Bitmap);
image1.Picture.Bitmap:=bmp;
MyImage.Free;
bmp.free;
end;