Здравствуйте, ASta, Вы писали:
AS>Может быть попробовать что-то в духе:
AS>const WM_DoFuckingWork = WM_USER + 1;
AS>PostMessage(f_progress.Handle, WM_DoFuckingWork, 0, 0);
AS>procedure DoDoFuckingWork(var AMessage: TMessage); message WM_DoFuckingWork;
AS>?
Не, забью всё в OnActivate, в конструкторе подыму флажок, перед запуском работы флажок проверю, и перед работой опущу его.
Костыль, конечно, но никто не говорил, что Delphi рулит. =(

// и какому умнику приходит в голову создавать базы данных в Excel?!