[Sanek_ntsk]

Создай переменную i:integer;
в таймере пиши
i:=i+1;
gauge1.progress:=i;