Процесс загрузки

[apocalypce]

приветствую вас уважаемые пользователи форума! Возникла трабла при создании проги,а именно есть кнопка ,которая генерирует определенный текст вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
s, a, b, c : string;
str : TStringList;
i, t, p1, p2 : integer;
begin
memo2.Clear;
str := TStringList.create;
for i:=0 to memo1.Lines.Count-1 do
begin
s:=memo1.Lines.Strings[i]; 
p1:=pos('{', s);
p2:=pos('}', s);
if (p1<>0) and (p2<>0) then
begin
a:=copy(s, 1, p1-1);
c:=copy(s, p2+1, MaxInt);
b:=copy(s, p1+1, p2-1-p1);
str.text := stringReplace(b, '|', #13#10, [rfReplaceAll]);
for t:=0 to str.Count-1 do
memo2.Lines.Add(inttostr(t+1) + '. '+ a + str[t] + c); 
end;
end;
str.free
end;

Как сделать чтобы в тот момент пока идет генерация вылезла новая форма на которой и происходил индикатор прогресс бар! Спасибо!

[uberchel]

Вот держи :

procedure TForm1.btn1Click(Sender: TObject);
var
s, a, b, c : string;
str : TStringList;
i, t, p1, p2 : integer;
begin
  memo2.Clear;
  str := TStringList.create;
  Form2.Show;
  for i:=0 to memo1.Lines.Count-1 do
  begin
  s:=memo1.Lines.Strings[i];
  p1:=pos('{', s);
  p2:=pos('}', s);
  if (p1<>0) and (p2<>0) then
  begin
   a:=copy(s, 1, p1-1);
   c:=copy(s, p2+1, MaxInt);
   b:=copy(s, p1+1, p2-1-p1);
   str.text := stringReplace(b, '|', #13#10, [rfReplaceAll]);
   Form2.ProgressBar1.Max:= Str.Count -1;
   for t:=0 to str.Count-1 do
   memo2.Lines.Add(inttostr(t+1) + '. '+ a + str[t] + c);
   Form2.ProgressBar1.Position:= I;
   Application.ProcessMessages;
   if Form2.ProgressBar1.Position= Form2.ProgressBar1.Max then
    Form2.Close;
  end;
 end;
 str.free
end;

[apocalypce]

спасибо! сейчас нет возможности проверить, но думаю будет работать!