Odd speed drop in script, why?

Hi, I stumbled upon an old script and procastinated into it… only to discover an odd find:
The first run which creates and deletes textobjects is faster than the latter where it edits the text.
Also the first run toggles redraw on and off while the latter just redraws. This just seems counter intuitive, is it a bug?



'Option Explicit
'Script written by <insert name>
'Script copyrighted by <insert company name>
'Script version 19. november 2010 10:44:08

Call Main()
Sub Main()

	Rhino.EnableRedraw False
	ii = 100
	time1 = timer
	For i = 0 To ii
		strText = rhino.AddText(i, array(0, 0, 0))
		Rhino.EnableRedraw True
		Rhino.EnableRedraw False
		Rhino.deleteobject strText
	Next
	time2 = timer
	Rhino.EnableRedraw True
	Rhino.print round(time2 - time1, 2) & "sec, FPS: " & round(ii / (time2 - time1), 2)

	strText = rhino.AddText(i, array(0, 0, 0))
	
	time3 = timer
	
	For i = 0 To ii
		Rhino.TextObjectText strText, i
		Rhino.Redraw
	Next
	time4 = timer
	Rhino.EnableRedraw True
	Rhino.print round(time4 - time3, 2) & "sec, FPS: " & round(ii / (time4 - time3), 2)
	
End Sub