You can only enter a number in the Limit text box Tedit

procedureTform4.edit1keypress (Sender:tobject;varKey:char);begin  if  not(Keyinch['0'..'9','.','-', #8, # -]) Then  beginKey:= #0; End Else begin    ifKey ='-'  Then    begin      if  not string(Tedit (Sender). Text). Contains ('-') Then      begin        //the cursor is positioned on the first oneTedit (Sender). SelStart: =0; End Else beginKey:= #0; End; End Else ifKey ='.'  Then begin      if string(Tedit (Sender). Text). Contains ('.') Then      beginKey:= #0; End; End; End;End;

You can only enter a number in the Limit text box Tedit