Проблема с условием

[xiaoyu44]

Писал прогу с ListBox и Memo, и теперь не получается правильно написать условие...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Masks, StdCtrls, ComCtrls, WordXP, OleServer, OleCtnrs;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    WordDocument1: TWordDocument;
    WordApplication1: TWordApplication;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  W: TWordDocument;

implementation

{$R *.dfm}

procedure DirSearch(Dir: string; Mask : string; SL,DL: TStrings);
var
SearchRec: TSearchRec;
begin
Dir := IncludeTrailingBackslash(Dir);
if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
repeat
Application.ProcessMessages;
if (SearchRec.Attr and faDirectory) <> 0 then begin
if (SearchRec.name <> '.') and (SearchRec.name <> '..') then
DirSearch(Dir + SearchRec.name, Mask, sl,nil)
end
else
if MatchesMask(ExtractFileName(SearchRec.Name), Mask) then
begin
Sl.Add(SearchRec.Name);
DL.Add(Dir + SearchRec.Name);
end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
DirSearch('G:\Практика\Библиотека\spisok', '*.txt', ListBox1.Items,ListBox2.Items);
DirSearch('G:\Практика\Библиотека\spisok', '*.doc*', ListBox1.Items,ListBox2.Items);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
path:OleVariant;
 WA:TWordApplication;
 WD:TWordDocument;
begin
path:=ListBox2.Items[ListBox1.ItemIndex];
 WA:=WordApplication1;
 WA.Documents.Open(path, EmptyParam, EmptyParam, EmptyParam,   EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
 WA.Visible:=false;
 WD:=WordDocument1;
 WD.ConnectKind := ckAttachToInterface;
 WD.ConnectTo(WA.ActiveDocument);
 Memo1.Text:=WD.Content.text;
 WD.Close;
 WA.Disconnect;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
Memo1.lines.LoadFromFile(ListBox2.Items[ListBox1.ItemIndex]);
end;
end.

В условии я хочу сделать так, что бы если при поиске он находит файл с расширением '*.doc*', то применял действие в кнопке TForm1.Button2Click (то есть вытаскивал текст из word файла и сувал в memo1), может кто знает как прописать?

[volod3000]

Примените, для примера :

uses Masks;

if MatchesMask(fs.name, '*.doc') then

[xiaoyu44]

Не помогло, куда и как не пихаю, либо работает без него, либо сразу ошибку выдает... Я еще пытался свое условие прописать, но прога тоже без него работает.