progressbar delphi 7

Ответ от Бугаев Сергей Дмитриевич[гуру]
Надеюсь ты правильно задал вопрос и тебе нужно изменять прогрессбар именно при добавлении строки, но оставлять неизменным при удалении строки, то примерно так:
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption := '120'; // максимальное число строк?
ProgressBar1.Max := StrToInt(Label1.Caption);
ProgressBar1.Position := Memo1.Lines.Count;
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
if Memo1.Lines.Count > ProgressBar1.Position then
begin
ProgressBar1.Position := Memo1.Lines.Count;
end;
end;