[Yomis]

Pues ahora no caigo en si hay o no esa funcion :S asi que te digo otra forma.xDD

A ver, copias la cadena edit en una variable de tipo String y como sabes que quieres los 4 primeros caracteres de dicha cadena podrias poner algo asi:

 
  //declaras digitos y contador como globales
  
  procedure TForm1.Button1Click(Sender: TObject);
  var
    dos, tres: string;
  
  begin
   digitos := edit1.Text;
   dos := digitos[1] + digitos[2]; //2 primeros caracteres
   ShowMessage(dos);
   tres := digitos[3] + digitos[4]; //3º y 4º 
   ShowMessage(tres);
  end;
  
  procedure TForm1.Edit1Change(Sender: TObject);
  begin
    contador := contador + 1;
    if (contador = 8) then 
      button1.Enabled := true;
  end;
  
  procedure TForm1.FormActivate(Sender: TObject);
  begin
    contador := 0;
  end;

Lo unico que tendrias que hacer es con el metodo OnkeyPress hacer que si le da a borrar kite 1 al contador, ect....

No se si es lo k kerias :P pero es lo k entendi.xDDD