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
begin
end
else
Key := #0;
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
end;