[true]

Спасибо, я понимаю что это может быть легче.. но врядли для меня,
в вашем коде у меня ошибки на:

while not AdoTable1.Eof

и здесь..

if (AdoTable1.FieldByName(

блиин..(((((