i:=i+1;
i пихните в облась вывода.
ну а таймер сами приспособите.