[Mika Koistinen]

Actually solution was more simple than I tought.

TCaseInsentiviveKbmMemtable = class (TkbmMemTable)
    function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant; overload; override;
 end;
...
function TCaseInsentiviveKbmMemtable.Lookup(const KeyFields: string; const KeyValues: Variant;
  const ResultFields: string): Variant;
var
  options: TLocateOptions;
begin
  options := [loCaseInsensitive];
  Result:=Lookup(KeyFields,KeyValues,ResultFields,options);
end;

[Mika Koistinen]

Thanks For this.
Actually at that point primary customer using that updated data to match case. But now we got two more cases.
My code is like this

 
fProdLookup := tKbmMemTable.create(self);
q.sql.Text := 'select number,name from products';
q.UniDirectional := true;
q.open;
fProdlookup.LoadFromDataSet(q, [mtcpoStructure,mtcpoProperties]);
fProdLookup.addIndex('iNumber','number',[ixCaseInsensitive]);
fProdLookup.indexName := 'iNumber';

But still case casesensitive lookups.

[Author]

Posts