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;