динамическое присваивание параметров

[The Doberman]

программа по импорту данных. есть SQL-конструктор, который создает запрос на создание БД, в тоже время создается 2й запрос (параметризованный) для заполнения БД. никак не могу сообразить код для присваивания значений параметрам. не обязательно писать код, хотя бы направление построения логики дайте. вот что я пробовал, не очень удачно:
for I:=0 to adoDataSet1.RecordCount-1 do
begin
for K:=0 to fiel.Count-1 do
begin
if adodataset1.FieldDefs.Items[i].DataType=ftfixedchar then
ibsql2.ParamByName(fiel.Strings[k]).AsString:=adodataset1.FieldValues[fiel.Strings[k]];
if adodataset1.FieldDefs.Items[i].DataType=ftBCD then
ibsql2.ParamByName(fiel.Strings[k]).AsFloat:=adoDataSet1.FieldValues[fiel.Names[k]];
if adodataset1.FieldDefs.Items[i].DataType=ftDate then
ibsql2.ParamByName(fiel.Strings[k].AsDate:=adoDataSet1.FieldValues[fiel.Names[k]];
end;

где fiel - элемент StringList типа Tstrings, со значениями имен стобцов БД.