ProgressBar снова :)

Как я не тра...лся с этим долбаным ПрогрессБаром ,ничего не получается
Вот код. может я вчемто ошибся? Мне надо сделать чтобы прога загрузилась
и прогрессбар начал заполняться.
По окончании заполнения выполнить операцию.
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
p:=p + 1;
if (p<=10) then ProgressBar1.StepIt
else
begin
if(RadioButton1.Checked) then Операция1;
if(RadioButton2.Checked) then Операция2;
end;
end;

я сам не мастер, но я твой код попробовал-у меня получилось. хочешь-закинь исходник на мыло, я посмотрю.
tobob@mail.ru
-------------------------------
один лам хорошо, а два-лучше
(да простит нас всех Alone God)

Да вроде всё в порядке. А в чём проблема-то? Поконкретнее объясни, а?

у меня сразу запускается бесконечный цикл!!!!!!!

Попробуй так :
procedure TForm1.FormCreate(Sender : TObject);
begin
.....
p := 0;
end;
....
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(p);
if p <= 10 then
begin
ProgressBar1.StepIt
p := 0;
end;
......
end;