[Alegun]

Так и думал, что будет типичное продолжение вопроса Используйте цикл, добавив первой строкой

Код:

 for Acc := 0 to Accounts.Count-1 do
 ...

З.Ы. Только Acc:=0; уберите из основного блока