Проблема с потоками

[vitalik007]

Я хочу организовать поиск файлов потоком.
Сделал все нормально но тока работает так как и без потока(кнопки не какие в проге не работают когда идет поиск)
я делаю так:
при нажатии на кнопку старт создаю поток(create)
и пишу resume
в потоке вот такой код

unit unirrrrrr;

interface

uses
  Classes,windows,sysutils,dialogs;

type
  TAttack = class(TThread)
  private
  procedure ScanDir;
  procedure ScanAllDrives;
  protected
  procedure Execute; override;
  public

  action:(TvscanDir,TvScanFile);
  filename:string;
  dirname:string;
  ScanDrives:boolean;
  end;

var
thread:Tattack;
implementation

procedure TAttack.Execute;
var i:integer;
begin
if not ScanDrives then begin
if action=TvScanDir then Synchronize(ScanDir);
end else  Synchronize(scanAllDrives);
end;

Procedure Tattack.ScanAllDrives;
begin
ScanAllDrivesA;
end;

procedure Tattack.ScanDir;
begin
ScanDirA(dirname);
end;


procedure ScanDirA(Dir:String);
Var
  SR:TSearchRec;
  FindRes,i:Integer;
  EX : String;
begin
FindRes:=FindFirst(Dir+'*.*',faAnyFile,SR);
While FindRes=0 do
begin
  if (sr.Attr and FaDirectory)=Fadirectory then
  begin
    if (sr.Name='.') or (sr.Name='..') then
    begin
      FindRes:=findnext(sr);
      continue;
    end else
    begin
      ScanDirA(dir+sr.Name+'\');
      FindRes:=findnext(sr);
      continue;
    end;
  end;
  Ex := ExtractFileExt(Dir+SR.Name);
   for i:=0 to ext.Count-1 do
   if  LowerCase(Ex) = Ext[i] then
     begin

     //showmessage(dir+sr.Name);
      end;
FindRes:=FindNext(SR);
end;
FindClose(SR);
end;


procedure ScanAllDrivesA;
var
i,disk:integer;
buffer:array[0..1023]of char;
s:string;
begin
i:=0;
s:='';
disk:=GetLogicalDriveStrings(sizeof(buffer),buffer);
while i<disk do
begin
  if buffer[i]<>#0 then
  begin
    s:=s+buffer[i];
    inc(i);
  end else
  begin
  inc(i);
  if GetDriveType(PChar(S))=DRIVE_FIXED then scanDira(Pchar(s));
  s:='';
  end;
end;
end;

[vitalik007]

решил проблему убрав Synchronize