Script slowing down?

This is not the first time I experiment this behaviour. But i wonder if someone knows the reasson why.

I have this script.

Freeze Window

Loop

If [ T2::NM ≠ "" ]

Go to RR[ From table: "T2"; Using layout: T2L ][ Show only RR ]

Go to Record/Request/Page[ First ]

Loop

If [ T2::NM > 1 ]

If [ T2::NM > 2 ]

If [ T2::NM > 3 ]

If [ T2::NM = 4 ]

PerforScript ["newReG";Parameter:T1::ID & "¶" T2::F1]

PerforScript ["newReG";Parameter:T1::ID & "¶" T2::F2]

PerforScript ["newReG";Parameter:T1::ID & "¶" T2::F3]

PerforScript ["newReG";Parameter:T1::ID & "¶" T2::F4]

End If

Else

PerforScript ["newReG";Parameter:T1::ID & "¶" T2::F1]

PerforScript ["newReG";Parameter:T1::ID & "¶" T2::F2]

PerforScript ["newReG";Parameter:T1::ID & "¶" T2::F3]

End if

Else

PerforScript ["newReG";Parameter:T1::ID & "¶" T2::F1]

PerforScript ["newReG";Parameter:T1::ID & "¶" T2::F2]

End if

Else

PerforScript ["newReG";Parameter:T1::ID & "¶" T2::F1]

End if

Go to Record/Request/Page[ Next; Exit after last ]

End Loop

Commit Records/Requests[ No dialog ]

Go to Layout [ "T1LAYOUT" (T1) ]

End If

Go to Record/Request/Page[ Next; Exit after last ]

End Loop

When I start it, it creates like an average of 15-20 records per second : (FM7advServer running on w2000k, 2x 3,4 Xeon 10KrpmSCASI)

After a couple of thousands of new records, I start to notice that the speed is decreassing until it only creates one record per second!!! When I see this, I stop the script, omit the processed records and restart it. It goes again to the maximum speed it gets, and decreasses again periodically until i restop, omit, and restart.

I have to create like 300.000 records and I will have to do this procedures many times until I migrate to FM the old DB. Some times I can import, but some others I cant. Does anyone knows how to solve this annoying behaviour?