не могу динамически создать параметр

[Dozent]

        with Form2.IBQuery1 do
         begin
          Close;
          Params.AddParam(Params.CreateParam(ftUnknown,'date1',ptInput));
          ParamByName('id'):=id_s;
          SQL.Text:='update TABLE1 set SQL_ID='; //äîáàâëÿåì íîìåð çàïðîñà
          ExecSQL;
          Close;
         end;

Ругается на ftUnknown, что не найден идентификатр

[Yurk@]

а зачем его создавать таким образом? не проще ли:

   with Form2.IBQuery1 do
         begin
          Close;
          SQL.Text:='update TABLE1 set SQL_ID=:id';
          ParamByName('id').Value:=id_s;
          ExecSQL;
          Close;
         end;

[Dozent]

всмысле заранее создать?

[Yurk@]

не. параметр создется автоматом исходя из запроса (а в запросе этот параметр уже есть) ... нужно лишь просто задать ему нужное значение

[Dozent]

хм, не знал спс... буду пробовать...

[Dozent]

А в цикле можно параметры так прописывать?

           with DM[y+1].Query do
          begin
          Close;
          SQL.Clear;
          SQL.Text:='SELECT DISTINCT     OA0.ID ,    OA0.CASE_FULL_NUMBER ,    OA0.RESULT_DATE ,    OA0.RETURN_OFFICE_DATE  FROM     G1_CASE OA0 WHERE     (OA0.CASE_FULL_NUMBER IS NOT NULL) AND     (OA0.RETURN_OFFICE_DATE BETWEEN  :date1  AND :date2 ) AND     (OA0.RESULT_DATE BETWEEN  :date3  AND :date4 )';
          for i:=1 to StringGrid1.RowCount do ParamByName('date'+intToStr(i)).Value:=;TDateTimePicker(Form1.FindComponent('DateTimePicker'+intToStr(i))).Date
          DM[y+1].Trans.Active:=true;
          Active:=true;
          end;