вывод бд в memo

[dezertir]

как мне сделать цикл что бы вывести в мемо1 все данные из бд а не по 1 строке как у меня подскажите пожалуйста СРОЧНО НУЖНО!!
я знаю что вопрос легкий но у меня ни чего не получается(((
Memo1.Lines.Add(DataModule1.ADOTabl e5.FieldByName('Variant').AsString) ;//1 строка
DataModule1.ADOTable5.next;
Memo1.Lines.Add(DataModule1.ADOTabl e5.FieldByName('Variant').AsString) ;//2 строка
w:=createoleobject('word.applicatio n');//открываем ворд
w.visible:=true;//делаем его видимым
w.documents.add;//создаем новый документ
w.activedocument.range.insertafter( memo1.text) ;//переносим данные из мемо1 в ворд
w.activedocument.printout;//печатаем
end;

[Аватар]

Memo1.Clear;
DataModule1.ADOTable5.First;
while not DataModule1.ADOTable5.Eof do begin
  Memo1.Lines.Add(DataModule1.ADOTable5.FieldByName('Variant').AsString);
  DataModule1.ADOTable5.Next;
end;