베트남은 13 이라는 숫자를 너무나도 싫어해서 13을 입력이 안되고, 12A로 입력해 달라고 해서 작성중입니다.
경우의 수가 너무 많네요.
아직도 다 적용을 못했어요. ㅠㅠ

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  iLn, pos, cnt, n: integer;
  str, st1: string;
begin
  if K_NUMBER_MODE = 'NUMBER_MODE' then exit; // 표준 모드이면 그냥 리턴

  if Key = #$61 then Key := #$41; // 소문자 a 는 대문자 A 로 바꾸기

  iLn := Length(Edit1.Text); // 세대 ID 길이
  pos := Edit1.SelStart;     // 세대 ID 커서 위치
  cnt := StrLengthNoA(Edit1.Text);

  if ( ((Key >= #$30) and (Key <= #$39))or(Key = 'A')or(Key = 'a') ) then
  begin
    // -------------------------------------------------------------------------
    // A 입력에 대한 프로세스
    // -------------------------------------------------------------------------
    if (Key = 'A')or(Key = 'a') then
    begin
      if iLn < 2 then // 길이가 2보다 작으면 입력을 Clear 한다
      begin
        Key := #0;
      end else
      begin
        if pos < 2 then // 현재 위치가 2보다 작으면 입력을 Clear 한다
        begin
          Key := #0;
        end else
        if pos = 3 then // 현재 위치가 3인 경우는 A를 입력하면 안된다
        begin
          Key := #0;
        end else
        begin
          if (iLn > pos) then // A 입력 우측에 A가 있으면 A 입력 거부
          begin
            st1 := Copy(Edit1.Text, pos+1, 1);
            if (st1 = 'A') or (st1 = 'a') then
            begin
              Key := #0;
              exit;
            end;
          end;
          str := Copy(Edit1.Text, pos-1, 2);
          if str <> '12' then Key := #0;
        end;
      end;
    end else
    // -------------------------------------------------------------------------
    // 숫자 입력에 대한 프로세스
    // -------------------------------------------------------------------------
    begin
      if cnt >= 4 then // 12A12A는 괜찮다, 12345 다섯자리는 안된다
      begin
        Key := #0;
      end else
      begin
        if (iLn > pos) then // 입력 숫자 우측에 A가 있으면 전체 삭제
        begin
          // ---------------------------------------------------------------------
          // A 입력 우측에 A가 있으면 전체 삭제
          // ---------------------------------------------------------------------
          for n := pos+1 to iLn do
          begin
            st1 := Copy(Edit1.Text, n, 1);
            if (st1 = 'A') or (st1 = 'a') then
            begin
              Edit1.Text := '';
              Key := #0;
              exit;
            end;
          end;
        end;
        // ---------------------------------------------------------------------
        // 숫자 1 입력되었을 때, 특정 13 입력은 거부 프로세스
        // ---------------------------------------------------------------------
        if Key = #$31 then
        begin
          if iLn > 0 then
          begin
            if pos = 0 then
            begin
              str := Copy(Edit1.Text, 1, 1);
              if str = '3' then
              begin
                Key := #0;
                exit;
              end;
            end else
            if (iLn >= 3)and(cnt = 3)and(pos >= 3) then
            begin
              str := Copy(Edit1.Text, 1, 1);
              if str = '1' then
              begin
                Key := #0;
                exit;
              end;
            end;
          end;
        end;
        // ---------------------------------------------------------------------
        // 숫자 3 입력되었을 때, 특정 13 입력은 거부 프로세스
        // ---------------------------------------------------------------------
        if Key = #$33 then
        begin
          if iLn > 0 then
          begin
            if pos = 1 then
            begin
              str := Copy(Edit1.Text, 1, 1);
              if str = '1' then
              begin
                Key := #0;
                exit;
              end;
            end else
            if (iLn >= 3)and(cnt = 3)and(pos >= 3) then
            begin
              str := Copy(Edit1.Text, pos, 1);
              if str = '1' then
              begin
                Key := #0;
                exit;
              end;
            end;
          end;
        end;
      end;
    end;
  end else
  begin
    if Key = char(VK_BACK) then // 백스페이스는 사용되어야 한다
    begin
      if (pos > 0) and (iLn > pos) then // A 입력 우측에 A가 있으면 전체 삭제
      begin
        // ---------------------------------------------------------------------
        // A 입력 우측에 A가 있으면 전체 삭제
        // ---------------------------------------------------------------------
        for n := pos+1 to iLn do
        begin
          st1 := Copy(Edit1.Text, n, 1);
          if (st1 = 'A') or (st1 = 'a') then
          begin
            Edit1.Text := '';
            Key := #0;
            exit;
          end;
        end;
      end;
    end else
      Key := #0;
  end;
end;

>> 1. 개발/실행 플랫폼 
>>   (1) OS : Win10
>>   (2) 개발툴 : XE8
>>   (3) 사용 Database : 
>> 
>> 2. 개발 중인 프로그램 
>>   숫자 및 A,a만 입력 방식
>> 
>> 3. 질문 내용
>> Edit에 숫자(0~9), A, a만 입력받는 프로그램입니다.
>> A(또는 a)는 12숫자뒤에만 입력이 가능하게 하려면 어떻게 해야 하나요?
>> procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
>> var
>>   iLn: integer;
>> begin
>>   if ( ((Key >= #$30) and (Key <= #$39))or(Key = 'A')or(Key = 'a') ) then
>>   begin
>> 
>>   end else
>>   begin
>>     Key := #0;
>>   end;
>> end;
>> 조언을 구해봅니다.
>>