[kotzzz]

Добавляю png-рисунки в res-файл:

Код:

img1 RCDATA 1.png
img2 RCDATA 2.png
..........................

Добавляю готовый "11.RES"-файл в свою программу:

Код:

var
  Form1: TForm1;
  ResStream: TResourceStream;

implementation

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  ResStream := TResourceStream.Create(HInstance, 'Img1', RT_RCDATA);
  Image1.Picture.Bitmap.LoadFromStream(ResStream);
  ResStream.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ResStream := TResourceStream.Create(HInstance, 'Img2', RT_RCDATA);
  Image1.Picture.Bitmap.LoadFromStream(ResStream);
  ResStream.Free;
end;

При нажатии Button1 "png1" добавляется и отображается в "Image1", но стоит второй раз нажать Button2 или тот же Button1, то выводится следующее сообщение об ошибке...

В чем дело?!

Подскажите... Я новичек в программировании... По форумам искал инфо, но подходящего не нашел...

Заранее спасибо за ответ...