чтение image из файла Опции

[Адель]

как можно прочитать image из файла, записанный в него либо по одной картинке либо вот таким вот способом:

Procedure AddToStream ( Source , Dest : TStream );
var 
Size: Integer;
begin 
 Source.position := 0;
 Size := Source.Size;
 Dest.Write(Size,SizeOf(Integer));
 Dest.CopyFrom(Source,Source.size);
end; 

procedure TForm1.SaveClick(Sender: TObject);
var 
  s1, s2: TMemoryStream ;
  i: integer;
begin
  s1:= TMemoryStream.Create ;
  try 
    s2:= TMemoryStream.Create ;
     try
      for i:=1 to 300 do
      begin
       s2.LoadFromFile('C:\Image\'+IntToStr(i)+'.jpg');
       AddToStream(s2,s1);
      end;
     finally
      s2.Free ;
     end;
  s1.SaveToFile('C:\Image.dat')
  finally
  s1.free ;
  end;
end;

[Malice]

Это надо было в отдельный файлик писать размеры всех картинок (либо позицию в файле), или в тот же файл (длина/картинка, длина/картинка..). Теперь придется искать начало картинки либо по сигнатуре (jpg-и начинаются одинаково), либо разобрать заголовок и оттуда вычислить длину. По сигнатуре проще наверное.