Arsip: Image di dalam "Resource"

procedure TfDelphi.tbl_GambarClick(Sender: TObject);
var
lbBitmap : TBitmap;
begin
bBitmap := TBitmap.Create;
 try
lbBitmap.Handle := LoadBitmap(hInstance, 'DELPHI');
Image1.Width    := lbBitmap.Width;
Image1.Height   := lbBitmap.Height;
Image1.Canvas.Draw(0,0,bBitmap);
 finally
lbBitmap.Free;
 end;
end;

procedure TfDelphi.tbl_GambarClick(Sender: TObject);
begin
Image1.Picture.Bitmap.
LoadFromResourceName(hInstance,'EARTH');
end;