procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
   if (key>#58) or (key<#48) then
     begin
     abort;//*****这里应该写啥?
     end;
   if key=#13 then
     begin
     {..执行程序。。}
     end;
end;