[GrafAtRuss]

Имеется автоматически генерируемый ListBox1 примерно на 150 строк (допустим это пути к файлам).
Требуется выполнить однотипные операции с каждой из строк, например автоматически поочередно отредактировать и добавить их в поле Memo1.
В голову приходит код на подобии:

Код:

procedure MemoFiles(Line: double);
var
L:double;
begin
Form1.ListBox1.ItemIndex := Line;
if Form1.ListBox1.Items.Strings[(Form1.ListBox1.ItemIndex)] = '' then
Form1.Memo1.Lines.Add('Анализ завершен.')
else
Form1.Memo1.Lines.Add('Анализ ' + Form1.ListBox1.Items.Strings[(Form1.ListBox1.ItemIndex)]);
L := Line + 1;
MemoFiles (L);
end;

Проблема в том, что ListBox1.ItemIndex не может быть равен текстовому значению Line, а только любому цифровому.
Вопрос в том, как автоматически переводить строки для последующей обработки?

[deltas]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
For i:=0 to ListBox1.Items.Count-1 do begin
memo1.Lines.Add('Анализ ' + ListBox1.Items.Strings[j]);
inc(j);
end;
if j=ListBox1.Items.Count then memo1.Lines.Add('Анализ Завершен! Обработано '+intToStr(j)+' строк');
end;

end.

Ну что-то в этом роде...