[kiman.ru]

Пишу тест: при копировании большого файла (фильм 400 мб) программа должна менять названия кнопки.

Изменение названия кнопки написал в потоке так:

Код:

procedure Progress.Execute;
var
  i: Integer;
begin
  for i := 0 to 100 do
    begin
      Form1.Button1.Caption := IntToStr(Random(1000));
      Sleep(100);
    end;
end;

Файл копирую так:

Код:

CopyFile(PChar('c:\film.avi'),PChar('c:\film_copy.avi'),true);

Так вот при копирвании файла программа «подвисает» на время копирования и название кнопки не изменяется...

Подскажите как можно во время копирования файла, приведенным мной способом, менять название кнопки.