[chingolo]

esto en tu onkeypress del edit, para que admita solo numeros

Código Delphi [-]
  if ( StrScan('0123456789',Key) <> nil ) or 
     ( Key = Char(VK_BACK) ) then { BackSpace Key }
  begin 
    {Aqui tu tratamiento normal del evento}
  end 
  else 
    Key := #0; //acordate de esto porq sino te puede generar error porq le seguis pasando el evento ojo

esto seria si es 044 o 045, pero en tu keyup porq asi el numero ya se ingreso en el edit, lo q hago es que cuando se ingresen los tres primeros caracteres recien ahi se modifique la long, tambien podes controlar la entrada forzada de caracteres si se selecciona celular

Código Delphi [-]
if (Length(edit1.text)>0 and Length(edit1.text)<4) then
if ((StrComp(PChar(Edit1.Text), PChar('044'))=0) or (StrComp(PChar(Edit1.Text), PChar('048'))=0)  then
begin
{aca cambia la longitud maxima a 13}
end;