Автоматическая построчная работа с ListBox в Delphi

[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, а только любому цифровому.
Вопрос в том, как автоматически переводить строки для последующей обработки?

[Пепел Феникса]

<Чего язык зачесался?> вы написали
циклы не изучали?

procedure MemoFiles;
var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do
  if Form1.ListBox1.Items[i]='' 
   then Form1.Memo1.Lines.Add('Анализ завершен.')
   else Form1.Memo1.Lines.Add('Анализ ' + Form1.ListBox1.Items[i]);
end;

[GrafAtRuss]

Я просто с ПХП по очень надо постепенно на Дельфи переезжаю.
Зы А как в этот цикл включить Form1.ProgressBar1.Position := ,где Form1.ProgressBar1.Max := Form1.ListBox1.Items.Count; ?

procedure MemoFiles;
var i:integer;
begin
 Form1.ProgressBar1.Max := Form1.ListBox1.Items.Count;
 for i:=0 to Form1.ListBox1.Items.Count-1 do
  if Form1.ListBox1.Items[i]=''
   then Form1.Memo1.Lines.Add('Анализ завершен.')
   else begin
   Form1.Memo1.Lines.Add('Анализ ' + Form1.ListBox1.Items[i]);
   Form1.ProgressBar1.Position := i;
   end;
end;

Сие правильный подход?

[Пепел Феникса]

procedure MemoFiles;
var i:integer;
begin
 Form1.ProgressBar1.Max := Form1.ListBox1.Items.Count;
 Form1.ProgressBar1.Position:=0;
 for i:=0 to Form1.ListBox1.Items.Count-1 do
  //if Form1.ListBox1.Items[i]='' считаю что условие не нужно, ибо если выйдем за пределы массива будет ошибка
   begin
    Form1.Memo1.Lines.Add('Анализ ' + Form1.ListBox1.Items[i]);
    Form1.ProgressBar1.Position := i;//не очень правильно но работает, правда пользователь не увидит обновление полоски:)
   end;
 Form1.Memo1.Lines.Add('Анализ завершен.')
end;

[GrafAtRuss]

Сообщение от Пепел Феникса

Form1.ProgressBar1.Position := i;//не очень правильно но работает, правда пользователь не увидит обновление полоски:)
   end;

А что вписать, чтоб увидел?

[Пепел Феникса]

procedure MemoFiles;
var i:integer;
begin
 Form1.ProgressBar1.Max := Form1.ListBox1.Items.Count;
 Form1.ProgressBar1.Position:=0;
 for i:=0 to Form1.ListBox1.Items.Count-1 do
  //if Form1.ListBox1.Items[i]='' считаю что условие не нужно, ибо если выйдем за пределы массива будет ошибка
   begin
    Form1.Memo1.Lines.Add('Анализ ' + Form1.ListBox1.Items[i]);
    Form1.ProgressBar1.Position := i;//не очень правильно но работает, правда пользователь не увидит обновление полоски:)
    Appication.ProcessMessages;//позволим приложению обработать сообщения(перерисовки и тп)
   end;
 Form1.Memo1.Lines.Add('Анализ завершен.')
end;

красным выделил