[Decoding]

Как поставил задачу, такой ответ и получил... Делай так

Код:

 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if not ( Key in ['0'..'9', DecimalSeparator, Chr( VK_BACK )] ) then
      Key := #0;
end;