function rupper(CString: PChar): PChar;stdcall;export;
begin
  rupper:=replace_it(CString,small_chars,cap_chars);
end;

function replace_it(CString: PChar;scr: PChar;dest: PChar):PChar;
var i,j:integer;
begin
  i:= 0 ;
  while (CString[i]<># 0 ) do begin
    j:= 0 ;
    while (scr[j]<># 0 ) do begin
       if CString[i]=scr[j] then begin
         CString[i]:=dest[j];
         Break;
       end;
       inc(j);
    end;
    inc(i);
  end;
  replace_it:=CString;
end;

Select NAMTVR,CODTVR
from SPTVR
Where RUpper(SPTVR.NAMTVR) LIKE 'ВАР%' order by NAMTVR

Для того, чтобы параметры передавались в правильном порядке, и 
выполнялись определенные правила входа/выхода из функции, при ее 
объявлении всегда используются следующие ключевые слова: cdecl – 
передача параметров и очистка стека по правилам C; export – для доступа к 
функции извне DLL.