* Тестовая таблица
Create Cursor curTest (f1 C( 10 ), f2 C( 10 ))
Insert into curTest values ('один', 'три')
Insert into curTest values ('один', 'три')
Insert into curTest values ('два', 'четыре')
Insert into curTest values ('два', 'четыре')

* Вызов функции
Local loObject as Custom
loObject = MakeList('curTest','f1','слово')

* Смотрим результат

* Для версий младше VFP9 факт существования массива можно проверить так 
* IF Type("loObject.aArray[1]")<>"U"

* Для VFP9
If Type("m.loObject.aArray", 1 )="A"
	Local lnI
	For m.lnI= 1  TO Alen(m.loObject.aArray, 1 )
		?m.loObject.aArray[m.lnI]
	EndFor
EndIf

* Можно скопировать массив из объекта в "обычный" массив
Local laArray( 1 , 1 )
=Acopy(m.loObject.aArray,laArray)

********************************
* Сама функция
********************************
Function MakeList
LPARAMETERS tcTabName, tcFieldName, tvValue

Local loCustom as Custom 
loCustom = CreateObject('Custom')
loCustom.AddProperty("aArray[1,1]")

Select distinct &tcFieldName ;
from (m.tcTabName) ;
into array loCustom.aArray ;
order by  1 

* Теперь надо записать в первый элемент искомое слово
If _Tally <>  0 
	* Сюда попадаем, если в результате выборки хоть что-то выбрано

	* Увеличиваю размерность массива на  1  строку
	Dimension loCustom.aArray(Alen(loCustom.aArray, 1 )+ 1 , 1 )
	* Перемещаю добавленный пустой элемент на первую позицию
	=Ains(m.loCustom.aArray, 1 )
Else
	* Если ничего не выбрано, то размерность массива не изменилась
	* Так и остался один пустой элемент. Менять размерность не нужно.
EndIf

* Собственно запись значения в первый элемент массива
m.loCustom.aArray[ 1 , 1 ] = m.tvValue

Return m.loCustom