[Keygenmusic]

насчёт подвисания формы могу посоветовать попробовать засунуть ф-цию, которая её подвисает в поток, вот так

Код:

var h1:THandle;
...
CreateThread(nil,0,@ИмяФункци,nil,0,h1);

можно beginthread вместо createthread. а после можно TerminateThread(h1,0);