DelteFile + ListBox

[Nice42ru]

Всем здравствуйте, есть такой вопрос
На форме висит ListBox в нём есть строчки с полными путями файла тоесть
c:\1.txt
c:\folder\24.txt
c:\192.txt
вот в таком духе, как удалить все эти файлы разом?
С помощью DeleteFile у меня как-то невыходит, подскажите решение

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

цикл + DeleteFile

[Nice42ru]

    for i:=0 to ListBox1.Items.Count-1 do
    begin
      AssignFile(F,listbox1.items[i] + FileName.Text + '.txt');
      DeleteFile(F);
      CloseFile(F);
    end;

Вот ошибка:
Incompatible types: 'String' and 'Text'

ps

var
F : TextFile;

[spamer]

Вам же вроде Пепел Феникса дал четкий ответ...
Ну да ладно, вот:

procedure TForm1.Button2Click(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to ListBox1.Count - 1 do
    DeleteFile(ListBox1.Items[i]);
end;