[M.A.D.M.A.N.]

Код:

  DataSet.First;
  while not DataSet.EOF do
  begin
    ...
    mmo1.Lines.Add(DataSet.FieldByName['bla-bla-bla'].AsString);
    DataSet.Next;
  end;
  ...