ошибки при вызове формы из потока

[пауэрлифтинг]

я вызываю форму из потока в модальном режиме showmodal

begin
 form8.Image1.Picture.LoadFromFile(fn);
 if form8.ShowModal=idok then
 result:=form8.Edit1.Text else
 if (form2.Button1.Tag=1)  then
 form2.Button1.OnClick(nil);
end;

но при следуших вызовах этой формы она постепенно разрушаеться и с нее проподают кнопки а при закрытии программы появляеться сообшение -неверный дискриптор окна.
если вызывать с синхронизоцией (Synchronize(proc) ) то ошибок нет.. но вся программа подзависает.. у меня один поток работает с этим окном думаю что синхронизацию можно не использовать