Отрисовка текста в цикле

[artemavd]

Как сделать цикл отрисовки текста в определенном месте в цикле на Image? Алгоритм такой:
1. Из папки грузится картинка в Image;
2. Рисуется прямоугольник белый;
3. В StringGrid-e храняться значения (номера), которые в цикле по очереди должны браться и заносится в Edit и из него уже должен отрисовываться текст;
4. Текст из Edit наносится внутрь прямоугольника;
5. Картинка сохраняется и данный цикл повторяется до тех пор пока не будет этоже проделано с остальными картинками, которые в папке, т.е. каждое новое значение из Edit рисуется на новой картинке, загруженной в Image;

Вот код отрисовки вышенаписанного алгоритма для одного значения:

procedure TForm1.BtnPlugInsClick(Sender: TObject);
begin
//отрисовка прямоуголника
 Form1.Image2.Canvas.Font.Color:=clWhite;
 Form1.Image2.Canvas.Brush.Color:=clWhite;
 Form1.Image2.Canvas.Rectangle(550,200,1000,90);

//вывод текста со значением, взятым из Edit6
 Form1.Image2.Canvas.Font.Color:=clBlack;
 Form1.Image2.Canvas.Font.Size:=50;
 Form1.Image2.Canvas.Font.Name:='Verdana';
 Form1.Image2.Picture.Bitmap.Canvas.TextOut(600,100,Form1.Edit6.Text);

//сохранение картинки с именем в Edit6 + TIFF формат
 Form1.Image2.Picture.SaveToFile(Form1.Edit6.Text + '.TIFF');
end;

нужно как-то это превратить в цикл. С этим прошу вас помочь мне...

[Sibedir]

А зачем нужен Edit. Если номера хранятся в StringGrid'e, то берите их сразу оттуда.

[artemavd]

Как? Просто из Edit это значение еще в качестве имени файла берется.

[Stilet]

Задача: пронумеровать изображения, дорисовав номер на канве каждого изображения?

[artemavd]

Да, Виталий, так. Числовые значения будут браться из StringGrid.

[Sibedir]

Просто из Edit это значение еще в качестве имени файла берется

Гнусным голосом бабушки Ревы: Ну не поня-а-атно же.

Чем

var
  s: string;

не годится, если уж на то пошло.

[artemavd]

Sibedir, глянь пост №4. Stilet, все верно понял.

[Sibedir]

Да я тож это понял. Просто странным эта ваша фишка с эдитом показалась. Да Бог с ним с эдитом.

Вы не можите найти все файлы в папке и ли не можете свой код в цикл запихать?

[artemavd]

Свой код не могу в цикл запихать. Нужно, чтобы все было в цикле: и загрузка картинки в Image, и отрисовка текста, и сохранение.

[Stilet]

artemavd

Тогда сразу предупреждаю - откажись пока не поздно от TImage. Он сделан для просмотра прежде всего, а не для удобного редактирования изображения.
Самое лучшее что ты сделаешь так это в цикле будешь работать в TBitmap. в нем же править, и при надобности отрисовывать его на канве формы.
Image для этого ой как мало подходит.