[borockov]

Друзья, помогите пожалуйста немного дописать код.

Код:

procedure TForm3.Image10Click(Sender: TObject);
var
  i: Integer;
  FindWord: string;
  pos: Integer;
begin
     RichEdit1.Lines.BeginUpdate;
  try
    for i := 0 to RichEdit2.Lines.Count - 1 do
    begin
      FindWord := RichEdit2.Lines[i];
      pos := 0;
      while True do
      begin
        pos := RichEdit1.FindText(FindWord, pos, Length(RichEdit1.Text) - pos, []);
        if pos < 0 then Break;
        RichEdit1.SelStart := pos;
        RichEdit1.SelLength := Length(FindWord);
        RichEdit1.SelText := RichEdit3.Lines[i];
        Inc(pos);
      end;
    end;
  finally
    RichEdit1.Lines.EndUpdate;

end;
end;

При нажатий на картинку выполняется ^ код. Я хочу поставить небольшую задержку перед выполнением этого кода, и что бы во время задержки пробегал прогресбар.
Как я поступил:

Код:

procedure TForm3.Image10Click(Sender: TObject);
var
  i: Integer;
  FindWord: string;
  pos: Integer;
begin
v:=v+1; //переменная v объявлено глобально
progressbar1.Position:=v;
if v=100 then
begin  

   RichEdit1.Lines.BeginUpdate;
  try
    for i := 0 to RichEdit2.Lines.Count - 1 do
    begin
      FindWord := RichEdit2.Lines[i];
      pos := 0;
      while True do
      begin
        pos := RichEdit1.FindText(FindWord, pos, Length(RichEdit1.Text) - pos, []);
        if pos < 0 then Break;
        RichEdit1.SelStart := pos;
        RichEdit1.SelLength := Length(FindWord);
        RichEdit1.SelText := RichEdit3.Lines[i];
        Inc(pos);
      end;
    end;
  finally
    RichEdit1.Lines.EndUpdate;
end;
end;
end;

Всё компилируется без проблем, но при нажатий на картинку прогресбар делает 1 шаг и на этом всё зависает, что я не правильно сделал?