function LogExc(const e: Exception);
var msg: string;
begin
  msg :=  'UDF ERROR !!! ' + ParamStr(0) + #13#10'  ' + e.ClassName + #13#10'  ' + e.Message;
 
  OutputDebugString( PChar( msg) );

// и/или засунуть её в WinNT Events Log
end;

function MD5(str:PChar):PChar; cdecl; export;
begin
  try
    result := MakeResultString(PChar(strMD5(str)));
  except
    on e: Exception do begin
      LogExc(e);
      result := MakeResultString('');
    end;
  end;
end;

function ValidateStr(Value, KodType : PChar): PChar; cdecl; export;
.....
begin
  try
    if KodType = 'INTEGER' then.....

function ValidateStr(sqlValue, sqlKodType : PChar): PChar; cdecl; export;
var KodType: string;
begin
  Result := nil;                                         // Здоровая паранойя
  KodType := UpperCase(Trim(sqlKodType)); // Здоровущая паранойя
  try
    if KodType = 'INTEGER' then.......