procedure RellenarCombo( DS:TDataSet; tcTiposCampo:TiposCampo; var cbCombo:TComboBox);
var
iX : integer;
begin
cbCombo.Items.Clear;
for iX := 0 to DS.FieldCount - 1 do
with DS.Fields[iX] do
if (FieldKind = fkData) and (DataType in tcTiposCampo) then
cbCombo.Items.AddObject(DisplayLabel, DS.Fields[iX]);
cbCombo.ItemIndex := 0;
end;