var s:string;
procedure myFunc(ctx:pointer; nArg:integer; args:ppvalue); cdecl;
begin
  s:=sqlite3_value_text(args^);
  CharUpperBuff(@s[1],Length(s));
  sqlite3_result_text(ctx,PChar(s),Length(s),0);
end;