[Snake22]

Такс кое что получилось.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var   
      ImgBuf:TMemoryStream;
      Bm:TBitmap;
begin
ImgBuf:=TMemoryStream.Create;
bm:=TBitmap.Create;
   with Archiver do
    begin
        FileName := 'arc.zip';
        OpenArchive(fmOpenRead);
        Archiver.ExtractToStream('1.bmp',ImgBuf);
        CloseArchive;
    end;
ImgBuf.Position:=0;
Bm.LoadFromStream(ImgBuf);
Bm.SaveToFile('2.bmp');
end;

но это так,для пробы загрузки из потока.
а теперь надо чтоб из архива загружался JPEG файл и появлялся в TImag'e