안녕하세요. 최용일입니다.

그냥 간단히 함수하나 만들어서 사용하세요...

function StrIsInt(const Str: string): Boolean;
begin
  Result := True;
  try
    StrToInt(Str);
  except
    Result := False;
  end;
end;

function StrIsDate(const Str: string): Boolean;
begin
  Result := True;
  try
    StrToDate(Str);
  except
    Result := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    if StrIsInt('100101') then
        ShowMessage('정수입니다.');
    else
        ShowMessage('정수가 아닙니다.');


    if StrIsDate('20011211') then
        ShowMessage('날짜입니다.');
    else
        ShowMessage('날짜가 아닙니다.');
end;

^^ 항상 즐코하세요...

음 질문에 요지를 잘 모르겠네요..

스트링에 저장되어 있는 값이 유효한 날짜값 또는 숫자값인지 체크하는
건가요?
아님 날짜인지 숫자인지 체크하는건가요?

죄송합니다...
스트링에 저장되어 있는 값이 유효한 날짜값 또는 숫자값인지 체크하는
겁니다....