hola, perdon me confundi con el lenguaje
aca va de nuevo pon este código en el evento OnKeyPress de tu TEdit y sólo admitirá números
Código Delphi
[-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ( StrScan('0123456789.-',Key) <> nil ) or
( Key = Char(VK_BACK) ) then
begin
end
else
Key := #0;
end;