Проблема с поиском файлов

[AleksNEW]

В общем ребят такая проблема:

При написании программы - поисковика (файлов и папок на компьютере) возникла проблема - программа при поиске не записывает результат в поле ListBox
Вот код программы:

___________________________________ ______________________________

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
ListBox1: TListBox;
Label1: TLabel;
Button2: TButton;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
OpenDialog1: TOpenDialog;
ListBox2: TListBox;
Label4: TLabel;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
dir: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var SR: TSearchRec;
FindRes: integer;
begin
listbox2.Clear;
FindRes := findfirst(edit3.Text+'\'+edit1.Text ,faAnyFile,SR);
while FindRes = 0 do
FindRes := FindNext(SR);
if FindRes = 1 then
begin
listbox2.Items.Add(SR.Name);
end;
FindClose(SR);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SelectDirectory('Выбор папки','C:\,D:\F:\',dir);
Listbox1.Items.Add(dir);
edit3.Text:= dir;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit3.Visible := false;
end;

end.

___________________________________ _________________________

Где у меня ошибка?
Буду благодарен

[Serge_Bliznykov]

абсолютно не понял Вашу логику! ;(
(особенно - if FindRes = 1 then ... )

а если так попробовать?

while FindRes = 0 do begin
   listbox2.Items.Add(SR.Name);
   FindRes := FindNext(SR);
end;
FindClose(SR);

[AleksNEW]

изначально я так и делал, но после того как у меня не добавляло имя файла я решил по эксперементировать

[AleksNEW]

все разобрался)
всем спасибо

[AleksNEW]

еще проблема такая - поисковик не ищет в под папках
в чем проблема?