Можно ли записать скажем 10 картинок в один файл, и чтоб они размещались одна под другой и были подписи под каждой?

Я имею в виду что в одном файле будут размещатся 10 разных рисунков и каждый подписываться: Рис.1 .... Рис.10.
Ну скажите хоть как их 10 сразу запихнуть, черт с ними с подписями.

Ок
Спасибо
понял
а оказалосмь такое простое решение

Пробую добавить в BitMap новый рисунок и так 10 раз , а он берет последний, каждый слующий переписывает предидущий.
BitMap1.Assign(Image.Picture); -


Может есть другая команда добавления в BitMAp

С этим не получается

Народ ну помогите
Мозги уже заворачиваются

Использую TList
С ним можно работать??? Я про то что его добавлять
И еще вопрос, если я потоком сохраню в одинр большой рисунок, смогу ли я его потом просмотреть в Винде, а то товарищь говорит что нет...

Это процедура выбирает данные из базы, создает програмно панели а в них рисунки:

procedure TForm1.AddPic(S: AnsiString;Sender: TObject);
Var
Pan: TPanel;
Pic : TImage;
zmPosition : Integer;
w : String;
j: Integer;
begin
w := 'Test napisi';
TRY
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select distinct idtask from ping');
ADOQuery1.Open;
for J:=1 to ADOQuery1.RecordCount do
begin
if ListC.Count = 0 then zmPosition := 295;
if ListC.Count <> 0 then zmPosition := (TPanel (ListC.Items[ListC.Count-2])).Top +
(TPanel(ListC.Items[ListC.Count-2])).Height+5;

begin
Pan := TPanel.Create(Form1);
Pan.Parent := Form1;
Pan.Top := zmPosition;
Pan.Left := 32;
Pan.Width := 360;
Pan.Height := 56;
Pan.BevelOuter := bvNone;
Pan.BorderStyle := bsSingle;
ListC.Add(Pan);
Pan.Visible := true;

Pic := TImage.Create(Pan);
Pic.Parent := Pan;
Pic.Top := 0;
Pic.Left := 0;
Pic.Height := Pan.Height;
Pic.Width := 1440;
ListC.Add(Pic);
Pic.Visible := True;
end;
end;
EXCEPT;

end;
end;

А эта пытается прочитать из листа и создать файл с рисунками:

procedure TForm1.Button10Click(Sender: TObject);
var
BitMap1, BitMap2 : TBitMap;
count : Integer;
rect : TRect;
TempStream : TMemoryStream;

begin
TempStream := TMemoryStream.Create;
BitMap1 := TBitMap.Create;
BitMap2 := TBitMap.Create;
BitMap1.Width := 3000;
BitMap1.Height := 500;
BitMap2.Width := 3000;
BitMap2.Height := 500;

i := 1;
begin
while i < ListC.Count do
begin
Mal := ListC.Items[3];
BitMap1.Assign(Mal.Picture);
BitMap1.SaveToStream(TempStream);
i := i + 2;
end;
TempStream.Position := 0;
BitMap2.LoadFromStream(TempStream);
end;

with SavePictureDialog1 do
begin
FileName := Caption;
if Execute then
begin
try

BitMap2.SaveToFile(FileName);
Caption := LowerCase(FileName);
finally

BitMap1.Free;
BitMap2.Free;
end;

end;
end;
end;

Рисунки я сам создаю, рисую линии
А формат неважен, но лучше если JPEG.

Забыл добавить
Процедура сохраняет в файле, но только один рисунок (первый) а остальные не берет

Ну низнаю, или я глючю, или чето не понял
Все вроде сделал как ты говорил, а файл нулевой, туда ничегошеьк=и не помещает.
Хотя по коду все вроде нормально
Помогите найти ошибку.
procedure TForm1.Button10Click(Sender: TObject);
var
BitMap1, BitMap2 : TBitMap;
count : Integer;
rect : TRect;
TempStream : TMemoryStream;
CurrentY: integer;

begin
TempStream := TMemoryStream.Create;
BitMap1 := TBitMap.Create;
BitMap2 := TBitMap.Create;
BitMap1.Width := 3000;
BitMap1.Height := 5000;
BitMap2.Width := 3000;
BitMap2.Height := 5000;
CurrentY:= 0;
i := 1;
begin
while i < ListC.Count do
begin
Mal := ListC.Items[1];
BitMap1.Assign(Mal.Picture);
BitMap2.Canvas.Draw(0, CurrentY, BitMap1);
Inc(CurrentY, BitMap1.Height);
i := i + 2;
end;
end;

with SavePictureDialog1 do
begin
FileName := Caption;
if Execute then
begin
try

BitMap2.SaveToFile(FileName);
Caption := LowerCase(FileName);
finally
BitMap1.Free;
BitMap2.Free;
end;
end;
end;
end;

Уже создает файл, но в него вставляет только один рисунок, а не несколько как планировалось