OnChange이벤트를 이용해 보세요

procedure TForm6.Edit1Change(Sender: TObject);
begin
	if Length(Edit1.Text) =7 then
		Edit1.SelectAll;
end;

김기용 님이 쓰신 글 :
: 안녕하십니까 델파이에 입문한지 얼마안된 초짜입니다.
:
: Tedit 박스의 Onkeypress 이벤트에서 숫자 7개를 사용자가 입력하였을 경우
:
: 자동으로 입력한 숫자 7자리를 블록처리하고 싶습니다.
:
: 그래서 7자리를 입력한 다음, 숫자를 입력하게 되면 그 7자리는 없어지게 되고 새롭게 숫자를 받을 수 있는 형식이죠
:
: 프로퍼티와 프로시져를 찾아봐도 당최 방법을 알 수가 없어 질문드립니다.
:
: 간단하게 해결할 수 있는 방법이 있을까요?