Editbox indhold af tal ?

Hvordan gør jeg så en editbox kun kan indeholde tal, så man ikke kan skrive bogstaver i den ?

på forhånd tak for hjælpen


Mvh

Anders

Kode 

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

tak det virkede, jeg glemte bare at jeg også skulle bruge komma! Hvilket nummer har komma ? Det må gerne være begge kommaer altså både på det numerisketastatur og det normale!

Mvh

Anders

Kode 

function GetASCIIValue(Key: Word): String;
begin
  Result := VarToStr(Key);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Label1.Caption := GetASCIIValue(Key);
end;

Kode 

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

Kode 

if not (Key in ['0'..'9',#08,#13,#110]) then
Key := #0;

Jeg forstår det ikke. Jeg har nu tjekket at det er nr 110, men når jeg så indsætter den på følgende måde bliver 110 til N tasten svarende til nr 78 ?

Kode 

if not (Key in ['0'..'9',#08,#13,#110]) then
Key := #0;

Mvh

Anders