안녕 하세요

질문내용:
9,000 을 9000으로 변환하는 내장 함수는 없는지. 궁금합니다.

입력할때는 천단위 구분기호을 쓰지만 마지막 저장시 문제가 됩니다.

아래처럼 사용해도 될까요.
그런데 오류가 나오더라구요.
function Tform1.FunStrInt(FunTxt:string):integer;
var
FTN,i:integer;
RetunVal:string;
begin
FTN:=length(trim(FunTxt));
if FTN>3 then begin
   for i:=1 to FTN do begin
      if copy(FunTxt,i,i)=',' then RetunVal:=RetunVal+copy(FunTxt,i,i);
   end;//for end
   FunStrInt:=strtoint(RetunVal);
end else begin
   FunStrInt:=strtoint(FunTxt);
end
end;
오류내용:[Warning] Unit1.pas(450): Return value of function 'TForm1.FunDct' might be undefined
[Warning] Unit1.pas(455): Return value of function 'TForm1.FunIntDef' might be undefined
그런데 제가 작성한 부분 오류는 같지 않은데..