Label не становится видимым.

[Kashp]

Здравствуйте. У меня вот такая проблемка: на форме имеются кнопка и Label (невидимый). При нажатии кнопки, Label должен стать видимым и после этого должно начаться копирование файлов. Так вот, когда я это запускаю, то Label появляется только после того, как все файлы скопируются. Вопрос: почему и как это исправить?
Вот код

procedure TForm3.Button1Click(Sender: TObject);
begin
Label1.visible:=true;
CopyFile(PChar( 'откуда' ),PChar( 'куда' ),false); \\копирование 1-го файла
CopyFile(PChar( 'откуда' ),PChar( 'куда' ),false); \\копирование 2-го файла
                                                                  \\копирование n-го файла

[still_alive]

Попробуй еще перед копированием Label1.Repaint;

[Kashp]

Сообщение от still_alive

Попробуй еще перед копированием Label1.Repaint;

Не помогло По-прежнему, как только файлы скопируются (это около 10 секунд), только потом появляется Label
Причем такая фича и при использовании ProgressBar'a , Animate.

[still_alive]

не знаю, вот так должно по идее работать...
Label1.visible:=true;
Label1.Repaint;
CopyFile(PChar( 'откуда' ),PChar( 'куда' ),false); \\копирование 1-го файла
CopyFile(PChar( 'откуда' ),PChar( 'куда' ),false); \\копирование 2-го файла
так в самом деле не работает?

[Kashp]

Сообщение от still_alive

не знаю, вот так должно по идее работать...
Label1.visible:=true;
Label1.Repaint;
CopyFile(PChar( 'откуда' ),PChar( 'куда' ),false); \\копирование 1-го файла
CopyFile(PChar( 'откуда' ),PChar( 'куда' ),false); \\копирование 2-го файла
так в самом деле не работает?

Вот именно так и делал, не работает
Там у меня копируется очень много файлов, и вот пока они не скопируются, то лабел не появляется.

[still_alive]

У меня при копировании полгигов все нормально. Без repaint'a в самом деле не выводится, а с Repaint'ом у меня все в порядке... Не знаю, почему у тебя не работает...

[Alex21]

Еще попробуй:
Application.ProcessMessages;

[Kashp]

Label5.Visible:=true;
Label5.Repaint;
Application.ProcessMessages;

Так заработало! Большое вам спасибо