обработка нажатия ENTER(#13): что-то странное...

[D][mon]

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
var
begin
if (Key=#13) then
Begin
Button1Action();
End;
end;

при выполнении в реультате нажатия enter действие выполняется 2 раза
если делать анологичное для др. клавишь - все норм.

попытался сделать следующее:

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
var
b:bool;
begin
b:=TRUE;
if (Key=#13) and (b=TRUE) then
Begin
Button1Action();
b:=FALSE;
//exit; тож не помогает(
End;
end;

НЕ ПОМОГЛО(
после доп исследований)) пришел к выводу:
все завязано на выпадении списка, но как...
включил свойства comboBox-а:
autocomlete и autodropdown
и... действе выполняется 1 раз
объясните плз, сам не пойму: почему ТАК оно работает как я хочу)))