Как сделать функцию "Остаток"

Помогите оформить эту функцию.

Буду благодарен :)

 

Аккаунт берешь из стринглиста и сразу стираешь строку под каким номером он шел. На кнопке остаток сохраняешь все что осталось в стринглисте

 

ostatok.text:=accounts.text

и в синхронизации

ostatok.delete[accounts(curacc)]

 

В чем кодишь? С# или Delphi?

 

Так не будет работать , к примеру , ты удалишь 0 строку , а потом в CurrAcc будет = 1 , то есть , теперь , когда ты удалил 0 строку , 1 строка , будет 0 , а когда CurrAcc будет равно 1 , 0 строку он пропустит и так будет до тех пор , пока не будет крит Bound

 

Так что нужно удалять всегда 0 строку или же
Ostatok.Text:=StringReplace(Ostatok.Text,Accounts[CurrAcc],'',[rfIgnoreCase,rfReplaceAll]);

Но будут пусты строки , их можно убрать очень быстро ,но как это сделать , уже думай сам )