Ok, sorry. Nochmal ganz langsam. Hab mich selbst in Rage geschrieben!
Du kannst wählen, wie dus machen willst. Entweder du deklarierst dir ne globale Variable (Mögen manchen nicht, deswegen die Alternative) oder du benutzt einfach den Timer1.Tag.
1) Du deklarierst dir die globale Variable (zb Counter) als Integer und setzt sie im Button4Click VOR Zeile 14 auf 0.
Dann schreibst du deinen Timer um, wie ichs geschrieben hab.
2) Wenn dir die globale Variable nich gefällt, dann benutzt du, wie gesagt, den Timer1.Tag. Das läuft eigentlich analog. Um eventuelle Wiederholungen möglich zu machen (dafür müßtest du aber das close im Timer weglassen) solltest du auch hier den Tag vor dem enablen des Timers auf 0 setzen.
Ansonsten überall "Counter" durch "Timer1.Tag" ersetzen.
Ausnahme: inc(counter)! Bin mir nich sicher, ob inc(Timer1.Tag) funktioniert. Evtl mußt du da Timer1.Tag := Timer1.Tag + 1 schreiben.