во первых
Код:
procedure MyThread.Execute;
begin
while not Terminated do
Analys;
end;
end;
во вторых, у Synchronize параметром должен быть метод без параметров.
В третьих - где
Код:
CriticalSection:= TCriticalSection.Create;
?
В четвёртых - что с чем Вы пытаетесь синхронизировать с помощью этой критической секции? Если разные потоки, то для них эта секция должна быть одна, а не по секции в каждом потоке.