cremator (c) попробуй так:
в процедуре OnClick сразу за строчкой создания потока поставь бесконечный цикл, с условием по глобальной переменной, а в процедуре екзекут твоего потока в конце после выполнения всех вычислений присвой этой переменной значение, штото гдето так
[code]
var
flag:boolean; //обязательно глобальная
procedure ...OnClick...
...
поток.create;
flag:=false;
while flag=false do
if flag=true then break;
....

procedure Thread.execute;
...
твои вычисления
...
flag:=true;
end;
[\code]
что то гдето так, простите если убого выражаюсь, вообще вижу что криво но на ум что то больше ничего не приходит