TThreadMethod с параметрами

[kettanaito]

Доброго времени суток.
Подскажите пожалуйста, как можно выполнить процедуру с параметрами через поток?

var Thread:TNewThread;
begin
Thread:=TNewThread.Create(True);
with thread do 
begin
  Priority:=tpHigher;
  Action:=MyFunction(MyParameter);
  Resume;
end;

Ругается ведь. Находил такой вариант:

...
Thread.Synchronize(procedure begin MyFunction(MyParameter); end;);
...

Видимо тоже не работает на Delphi 7.

Так как же быть?

[veniside]

эти навороты ввели в поздних дельфях, а в д7 надо быть так:

TNewThread = class(TThread)
  myParam: integer;
  procedure MyFunction();
...

procedure TNewThread.MyFunction();
begin
   writeln('Param = ', myParam);
end;

...

  Thread.myParam := 100;
  Thread.Synchronize(MyFunction);

это если нужна синхронизация с главным потоком, естественно. Вобще Synchronize() — это кривой костыль, который лучше не использовать.

[kettanaito]

veniside, ясно. Не хотелось просто описывать функцию в потоке, ну да ладно) Спасибо