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;
begin
if (key>#58) or (key<#48) then
begin
abort;//*****这里应该写啥?
end;
if key=#13 then
begin
{..执行程序。。}
end;
end;
begin
key=#0;
end;
if key=#13 then
begin
{..执行程序。。}
end;
Key:=#0
else if Key=#13 then
.....