[Страдалецъ]

Фу черт, а слона-то я и не увидел. Бездумно скопировал весь блок в цикл. Стыдно мне ужасно.
Так попробуйте:

Код:

Memo4.Clear;
while not ADOQuery5.Eof
do begin
Memo4.Lines.Add(ADOQuery5.FieldByName('Sity').AsString) ;