procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
m: set of Char;
begin
m := ['0' .. '9'];
if ord(Key) = 13 then
edit2.SetFocus;
if not(Key in m) then
Key := chr(0);
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
m: set of Char;
begin
m := ['0' .. '9'];
if ord(Key) = 13 then
edit2.SetFocus;
if not(Key in m) then
Key := chr(0);
end;