library myudf;

uses Windows, SysUtils;

{
DECLARE EXTERNAL FUNCTION MYUPCASE CSTRING(255) RETURNS CSTRING(255)
ENTRY_POINT 'MyUpCase' MODULE_NAME 'MYUDF'
}

function MyUpCase(aValue: PChar): PChar; cdecl; export;
begin
CharUpperBuff(aValue, Length(aValue));
Result:=aValue;
end;

exports MyUpCase;

begin
isMultiThread:=True;
end.