из ресурса bmp

procedure ***;
all_Bmp: TBitmap;
begin
  all_Bmp:= TBitmap.Create;
  try
    all_Bmp.LoadFromResourceName(HInstance, 'fon_all');
    Image1.Picture.Assign(all_Bmp);
  finally
    FreeAndNil(all_Bmp);
  end;
end;