delphi - Delphi の GIf リソース

Question

私は、デルファイ、res.RCファイルで開く単純なリソース(GIF)を実行しようとしています:

Loading RCDATA "loadingAd.gif"

コード：

{$R *.dfm}
{$R res.RES}

procedure TForm1.Image1Click(Sender: TObject);
var h : THandle;
begin
   h := FindResource(HInstance, 'Loading', 'RCDATA');
   showmessage(IntToStr(h))
end;

しかし、0になるたびに、私はXE4を使用しているので、多分試しました:

{$R *.dfm}
{$R res.RES}

procedure TForm1.Image1Click(Sender: TObject);
var h : THandle;
begin
   h := FindResource(HInstance, PChar('Loading'), PChar('RCDATA'));
   showmessage(IntToStr(h))
end;

まだ「リソースが見つかりません」というメッセージが表示されます。