Не могу организовать цикл удаления файлов

[dolphin705]

Написал небольшую программку, для удаление файлов, но не удаётся организовать цикл удаления найденных файлов

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  FileName: string;
  cDir: string;
  n: integer;

implementation

{$R *.dfm}

procedure Find;
var
SearchRec: TSearchRec;
begin
GetDir(0,cDir);
if cDir[length(cDir)] <> '\' then cDir := cDir+'\';
if FindFirst(FileName, faAnyFile,SearchRec) = 0 then
repeat
if (SearchRec.Attr and faAnyFile) = SearchRec.Attr then
begin
Form1.Memo1.Lines.Add(cDir +  SearchRec.Name);
n := n + 1;
end;
until FindNext(SearchRec) <> 0;
if FindFirst('*', faAnyFile, SearchRec) = 0 then
repeat
if (SearchRec.Attr and faDirectory) = faDirectory then
if SearchRec.Name[1] <> '.' then
begin
ChDir(SearchRec.Name);
Find;
ChDir('..');
end;
until FindNext(SearchRec) <> 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;             // очистить поле Memo1
FileName := Edit1.Text;  // что искать
cDir := Edit2.Text;      // где искать
n:=0;                    // кол-во найденных файлов
ChDir(cDir);             // войти в каталог начала поиска
Find;                    // начать поиск
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
begin
for i:=1 to 5 do
 begin
 DeleteFile(Memo1.Lines[i])
 end;
end;



end.

[Neeter]

А чего не удается то?
Может так написать:

procedure TForm1.Button2Click(Sender: TObject);
var
 i : integer;
begin
 for i := 0 to Memo1.Lines.Count - 1 do //т.к. отсчет строк начинается с нуля
 begin
  DeleteFile(Memo1.Lines[i]);
 end;
end;

[KORN]

не забудь атрибут поменять у файла, если файл будет только для чтения, системным, то он не удалится... меняй атрибут на архивный

[dolphin705]

Сообщение от Neeter

А чего не удается то?
Может так написать:

procedure TForm1.Button2Click(Sender: TObject);
var
 i : integer;
begin
 for i := 0 to Memo1.Lines.Count - 1 do //т.к. отсчет строк начинается с нуля
 begin
  DeleteFile(Memo1.Lines[i]);
 end;
end;

Этот код не работает

[KORN]

ты не memo юзай а listbox в нем удобней

[dolphin705]

с листбоксом работает, спасибо