[eloger]

Вся проблема в том что ты не делаешь post перед передвижением

Добавь ADODataSet1.Post перед ADODataset1.Locate('Cod',i+1,[]);