Здравейте на всички.
Нишките са хубаво нещо, но аз си мисля, 4е не трябва да се прекалява с тях.
Помисли си дали е удачно за твоя случай, потребителите да работят с програмата докато тя прави нещо важно ? Според мене е по-добре да изчакат. Но всичко си зависи от случая.
За таймера .. Сега нямам вазможност да пробвам , но не виждам защо няма да се покаже формата. Ето един примерен код :

procedure Long_calculation;
begin
timer1.interval := 3000; //това може и да е default;
timer1.enabled := true;
Screen.Cursor:=crHourGlass;
try
repeat
// твоя код
//Application.ProcessMessages е хубаво да се сложи да не си мислят лузерите
4е е забила програмата.

until calculation_end;

finally
timer1.enabled:=false; //ако стигне до тук преди 3 сек. формата няма да се покаже
if formPleaseWait.Showing then formPleaseWait.Hide;
Screen.Cursor:=crDefault;
end;
end;


procedure Timer1.OnTimer;
begin
enabled:=false;
formPleaseWait.Show;
formPleaseWait.Repaint; //мисля 4е това трябва да я накара да се покаже
end;


Ако пробваш и нестане пиши да знам :)))