Помогите с Delphi

[program123]

Здравствуйте. Есть Мемо и ПрогрессБар. Нужно по нажатию на баттон
чтобы ПрогрессБар начинал движение. Чем больше символов в Мемо
тем дольше он двигается и наоборот. У меня в коде он мелькает сразу и всё ((. Помогите разобраться

procedure TForm1.sSpeedButton1Click(Sender: TObject);
begin
   sProgressBar1.Step:=length(sMemo1.Text);
   repeat
   sProgressBar1.Position:=sProgressBar1.Position
   + sProgressBar1.Step;
   until
   sProgressBar1.Position=120;
end;

[VVM]

Сначала нужно определиться с максимальным значением прогресбара, а потом в событии OnChange memo прописать это:

  sProgressBar1.Position := length(sMemo1.Text);

[program123]

Вообщем сделал Таймером =)

[VVM]

А если перестать печатать на время, ProgressBar.Progress будет расти?

[program123]

Я сначала ввожу в мемо, потом нажимаю баттон, и пошел процесс, при этом после нажатия на баттон Свойство Memo1.Enabled := False;
а когда доходит до конца, т.е позиция = 100 то Memo1.Enabled := True;

[VVM]

Ну да, от задумки все зависит =) ...