[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.

Админ: Пользуемся тегами для оформления кода!