Applies toTFieldColumn
Declarationprocedure FillFieldItems(Column: TFieldColumn; Proc: TGetStrProc);