كيف اجعل string لايقبل سوا ارقام ومن 1 الى 10 فقط

[Delphi4Us]

كود :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin   // #8 is Backspace   if not (Key in [#8, '0'..'9']) then begin     ShowMessage('Invalid key');     // Discard the key     Key := #0;   end; end;