굉장히 유용하게 사용했습니다.

하지만 반복적으로 result를 호출하게 될 경우 이전에 사용한 리턴값들이 점점 쌓이는 문제가 일어나서

function RemoveSpecialChar(sSrc: string): string;
var
  I: integer;
  rt_string:string
begin
   rt_string:='';
   for I:=1 to Length(sSrc) do begin
     if (sSrc[I] in ['A'..'Z', 'a'..'z', '0'..'9']) or (ByteType(sSrc, I)<>mbSingleByte) then
       rt_string := rt_string + sSrc[I];
end;
result:=rt_string;
end;

이런 식으로 처리하였습니다.

모두 도와주셔서 감사합니다.