Получить список значений поля таблицы
function GetFieldValues(TableName, FieldName: string; var Values: TStrings;
MaxCount: integer = -1; sWhere: string = ''): integer;
TableName
FieldName
Values
MaxCount
0, если выполнено успешно, иначе < 0