Delphi Потоки. работа с функцией Synchronize()

[griha45]

День добрый.
Уважаемые, я решил заняться изучением потока и подумал написать процедуру, и встретился с проблемой есть процедура:
procedure FindFile (dir:String);

У неё есть параметр. Есть отдельная процедура:

procedure TSearch_Thread.Execute;
begin
   FreeOnTerminate :=True;
//   ShowMessage(Form1.dirs);
  Synchronize(FindFile(Form1.dirs));
  end;

Она работает от класса:

type
  TSearch_Thread = class (TThread)
  public
  procedure FindFile(dir:String);
  private
    dir:string;
  protected
    Procedure Execute; override;
  end;

Появляется сообщение :

[DCC Error] Search_Tread.pas(117): E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments.

Собственно вопрос. Как в через Synchronize, процедуре передать переменную? В прочем интересны и иные способы вызова процедуры в отдельном потоке и передаче ей параметров.

В заранее спасибо.

[evg_m]

1. ликбез ссылка на ссылку

2. тупой (безсмысленный) ответ на

Как в через Synchronize, процедуре передать переменную?

TMyTh =class(TThread)
private
  MyMsg: string;
  procedure SubSync(const msg: string);
  procedure Sync;
...
end;

procedure TmyTh.sync;
begin 
  subsync(mymsg);
end;

procedure TmyTh.Execute;
begin
  mymsg:='aaaaaaaaaa';
  synchronize(Sync);
end;