[Zhigalov]

На форме имеется три компонента Edit1, ProgressBar1, Timer1.
В едите лежит число 5.5. Пишу

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position := StrToInt(Edit1.Text);
end;

Упорно не хочет работать. Где я ошибаюсь?