procedure TForm4.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin try
if ((SpeedButton13.Enabled)and(Key=#13)) then SpeedButton13Click(Sender) else
if((not SpeedButton13.Enabled)and(Key=#13)) then Button1Click(Sender);
if Key=#13 then Key:=#0;
except end;End;