Удаление файлов

[Hint_reg]

Всем привет! Помогите плиз как мне теперь удалить файл показанных в RichEdit1.Lines

код

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, FileCtrl, ExtCtrls, ComCtrls, mFileScan;

type
TForm1 = class(TForm)
Button1: TButton;
RichEdit1: TRichEdit;
Label1: TLabel;
Button2: TButton;
Button3: TButton;
mFileScan1: TmFileScan;
btn1: TButton;
procedure Button1Click(Sender: TObject);
procedure mFileScan1FileFound(Sender: TObject; FileName: String);
procedure mFileScan1Ready(Sender: TObject; SearchResult: TStringList);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);

private
NoOfFiles: integer;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
mFileScan1.Paths.Text;
mFileScan1.Filters.Clear;

begin

mFileScan1.Filters.Add('*.ppt');


end;

Button1.Caption:= 'Èùåì...';
RichEdit1.Clear;
NoOfFiles:= 0;
mFileScan1.Start;
end;

procedure TForm1.mFileScan1FileFound(Sender: TObject; FileName: String);
begin
RichEdit1.Lines.Add(FileName);
Inc(NoOfFiles);
Label1.Caption:= IntToStr(NoOfFiles) + ' íàéäåíî';
end;

procedure TForm1.mFileScan1Ready(Sender: TObject;
SearchResult: TStringList);
begin
Label1.Caption:= Label1.Caption + ' - ñìîòðè';
Button1.Caption:= 'Íàéòè';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mFileScan1.Pause;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
mFileScan1.Resume;
end;

end.

[Stilet]

FileName - это только имя или полный путь?

[Hint_reg]

Это полный путь

[Stilet]

Тогда:

with RichEdit1 do 
 for i:=0 to Lines.Count-1 do DeleteFile(lines[i]);

[Hint_reg]

а как мне i объявить?

[FaTaL]

i : integer или word

[Hint_reg]

спасибо большое получилось

[Hint_reg]

Получилось, но почему то некоторые файлы не удаляются

[Stilet]

Наверное открытые.