function FindRec(aTable : tmsTable; const aKey : string; aField : string = 'UID') : boolean;
begin
if aTable.FieldByName(aField).AsString aKey then
result := aTable.Locate(aField, Variant(aKey), [foCaseInsensitive, foNoPartialCompare]) --> 'There is no overloaded version of 'locate' that be called with these parameters
else
result := true;
end;