Использую Delphi 2005 и пытаюсь выполнить запрос, передав приэтом параметр

sqlstr:='UPDATE USERS SET FIRMA=? WHERE id_user="'+Session['id_user'].ToString+'"';
sqlCmd:=BdpCommand.Create(sqlstr,sqlCn);
sqlCn.Open;
Self.BdpCommand1.ParameterCount := (SmallInt(1));
Self.BdpCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Firma', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.&String,
50, System.Data.ParameterDirection.Input, False, (Byte(20)), (Byte(0)),
1, 'Firma', System.Data.DataRowVersion.Current, nil));
sqlCmd.Parameters.Item[1].Value:='123';
sqlCmd.ExecuteNonQuery;

При попытке выполнить ругается на Индекс находился вне допустимого диапазона. Он должен быть неотрицательным и меньшим, чем размер коллекции. Имя параметра: index