// check if record has a keyword
function HasKeyword(r: IInterface; aKeyword: string): boolean;
var
  keywords: IInterface;
  i: integer;
begin
  keywords := ElementBySignature(r, 'KWDA');
  for i := 0 to Pred(ElementCount(keywords)) do
    if EditorID(LinksTo(ElementByIndex(keywords, i))) = aKeyword then begin
      Result := True;
      Exit;
    end;
end;