[Илья С.]

Вопрос следющий. Есть некий файл Image.rec. В нем лежит куча картинок. Мне нужно вызвать их из него, и поместить в открывшемся окне. Каким образом можно это осуществить? Желательно с самого начала, то есть с самого верха . Сама функция у меня, кажется, рабочая:

function LoadJPEGfromREC( Number: integer ): TJPEGImage;
var
ResStream: TResourceStream;
begin
Result := TJPEGImage.Create;
ResStream := TResourceStream.CreateFromID( HInstance, Number, RT_RCDATA );
Result.LoadFromStream( ResStream );
ResStream.Free;
end;

Почему нужно полное описание, как это сделать - просто этот кусок взят со стороны, и я пока что вообще никак не разбираюсь по данному вопросу.

Есть еще процедура:

procedure TForm1.AutoPlayClick(Sender: TObject);
var
i: integer;
tmpJPG : TJPEGImage;
begin
Tag := 0;
for i := 1 to 127 do
begin
TrackBarNum.Position := i;
tmpJPG := LoadJPEGfromREC( i );
PaintBox.Canvas.Draw( 0, 0, tmpJPG );
Application.ProcessMessages;
tmpJPG.Free;
Sleep( TrackBarSpeed.Position );
if Tag <> 0 then Break;
end;
end;


Помогите, пожалуйста, разобраться.