Вот как раз такой код:
Код:
while not m.ready do application.ProcessMessages;
даст загрузку процентов в 30 на пустом месте, а всего-то и надо добавить одну масенькую инструкцию.
Код:
while not m.ready
do begin
Sleep(1);
application.ProcessMessages;
end;