Поиск файла на всех дисках

[gigar]

Составил код по поиску файла Install2.txt на все дисках на компьютере. Но поиск происходит только на одном диске, почему то не переходит на следующий. На форме только Button1 и Label1. Помогите, пожалуйста.

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Button2: TButton;
    Label1: TLabel;
    procedure Button2Click(Sender: TObject);
  private
    function SearchAndRename(root, AName: String): Boolean;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  k1: integer;
  root: string;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);

var
  ch: Char;
  root: string;
begin

  Button2.tag := Button2.tag + 1;

  case Button2.tag of

    1:
      Button2.Caption := 'Остановить поиск';
    2:
      Button2.Caption := 'Начать поиск';

  end;

  if Button2.tag = 1 then
  begin
    k1 := 0;
  end;
  if Button2.tag = 2 then
  begin
    k1 := 1;
  end;
  if Button2.tag > 1 { max в case -1 } then
    Button2.tag := 0;
  root := 'C:';
    for ch := 'С' to 'Z' do
  begin
    root[1] := ch;
    case GetDriveType(PChar(root)) of
      DRIVE_FIXED, DRIVE_REMOTE:
        if not(SearchAndRename(root, 'Install2.txt')) then
          break;
    end;
  end;

end;

function TForm2.SearchAndRename(root, AName: String): Boolean;
var
  SearchRec: TSearchRec;
  FPath: String;
  iniFile: TIniFile;

begin

  Result := false;
  FPath := root;
  k1 := 0;
    if FPath[Length(FPath)] <> '\' then
    FPath := FPath + '\';
  try
    if FindFirst(FPath + '*', faAnyFile, SearchRec) = 0 then
    begin
      repeat
        Application.ProcessMessages;
        if k1 = 1 then
          break;
        Application.ProcessMessages;
        if (SearchRec.Attr and faDirectory) <> faDirectory then
        begin

          Label1.Caption := FPath + SearchRec.Name;
          if SearchRec.Name = AName then

          begin
            iniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) +
              'file.ini');
            try
              iniFile.WriteString('dir_secure_dir', 'N2',
                FPath + SearchRec.Name);
              k1 := 1;
              ShowMessage('Файл найден');
              Form1.Refresh;
              Form2.Destroy;
            finally
              iniFile.Free;
            end;

          end;
        end
        else
        begin
          if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
      begin
            SearchAndRename(FPath + SearchRec.Name + '\', AName);
          end;
        end;

      until (SearchRec.Name = AName) or (FindNext(SearchRec) <> 0);
      FindClose(SearchRec);
    end;
    Result := true;
  except
    on E: Exception do
    begin
      Application.MessageBox(PChar(E.Message), '........', MB_ICONERROR);
    end;
  end;
end;

end.

[Stilet]

А может отладчиком стоит пройтись?
И еще такой момент:

for ch := 'С' to 'Z' do
begin
root[1] := ch;
case GetDriveType(PChar(root)) of

Открой для себя GetLogicalDriveStrings. Зачем все буквы перебирать?

[gigar]

А можно чтобы было применимо к этому коду?

[gigar]

Уважаемы специалисты, помогите. В интернете есть примеры только для поиска на одном диске.

[Человек_Борща]

Вы уже получили ответы. Перебираете диски типа DT_FIXED и затем рекурсивно ищите в каталогах файлы. Примеры последнего просто кишат интернетом.

[gigar]

Я то это понял, но как применить это к данному коду? Поэтому и обращаюсь к Вам с это просьбой о помощи

[gigar]

Уважаемые гуру программирования, нужна Ваша помощь. Я уже даже не знаю что делать

[Человек_Борща]

Я уже даже не знаю что делать

Гуглом пользоваться. Ваша тема себя исчерпала ответы даны.Но вы просите разжевать и в рот положить. Этим сами занимайтесь =)