Метод Clear – очистить список

// Показать результат выполнения запроса Query.

Record = CreateStringList()

Records = CreateStringList()

while not Query.Eof

  Record.Clear

  I = 0

  while I <= Query.FieldCount - 1

    Field = Query.FieldByIndex(I)

    Record.Add(Field.AsString)

    I = I + 1

  endwhile

  Records.Add(Record.DelimitedText)

  Query.Next

endwhile

ShowMessage(Records.Text)

Метод Add

Метод AddStrings

Метод Delete

Свойство Count