ProgressBar не отображает процесс.

[katttes]

Я решила написать небольшую программку, которая бы копировала и удаляля файлы.На форме поместила 2 ProgressBar (1 для процесса копирования и 1 для удаления).
Процедура для копирования:

procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.Caption:='SETUP';
  Label1.Visible:=true;
  Label2.Visible:=true;
  SetupP;
  if  CopyFile(PAnsiChar(dirIsTexe),PAnsiChar(dirKTexe),false)then
  begin
    ProgressBar1.Position:=40;
    label2.Caption:='40%';
  end;
  if  CopyFile(PAnsiChar(dirIsTtxt),PAnsiChar(dirKTtxt),false)then
  begin
    ProgressBar1.Position:=70;
    label2.Caption:='70%';
  end;
  if  CopyFile(PAnsiChar(dirIsR),PAnsiChar(dirKR),false)then
  begin
    ProgressBar1.Position:=100;
    label1.Caption:='ÃÎÒÎÂÎ';
    label2.Caption:='100%';
  end;
end;

Процедура для удаления:
procedure TForm1.Button2Click(Sender: TObject);
begin
   form1.Caption:='REMOVE';
   label3.Visible:=true;
   label4.Visible:=true;
   DeleteP;
   if DeleteFile('C:\Documents and Settings\All Users\Рабочий стол\testing.exe')then
   begin
    progressbar2.Position:=40;
    label4.Caption:='40%';
   end;
   if DeleteFile('C:\testing.txt')then
   begin
    progressbar2.Position:=70;
    label4.Caption:='70%';
   end;
   if DeleteFile('C:\result.txt')then
   begin
    progressbar2.Position:=100;
    label3.Caption:='ГОТОВО';
    label4.Caption:='100%';
   end;
end;

Впервом случае (для копирования) все нормально отображается, а во втором (для удаления) не отображается процесс в ProgressBar и Label не изменяется. Объясните пожалуйста, что я делаю не так?

[BOBAH13]

Запускаем под Debug, ставим брейкпоинт на

procedure TForm1.Button2Click(Sender: TObject);
begin

и по шагам идем и смотрим где что-то не так работает.

[Grag]

Попробуй после каждого обновления ProgressBar и Label.Caption поставить Application.ProcessMessages

[Stilet]

CopyFile

А что возвращает эта функция? Может быть условия вообще всегда FALSE