Как сделать чтоб не спамило ?)

[dyh9l]

var
Main : Tform;
combo : TComboBox;
procedure Init; //Вызывается при включении скрипта
begin
Main := TForm.Create(nil);
Main.BorderStyle := bsSizeable;
Main.Position := poDesigned;
Main.Color :=      clLime;
Main.Left :=1082;
Main.Top :=0;
Main.Width :=200;
Main.Height :=990;

combo := TComboBox.Create(Main);
combo.Parent := Main;
combo.Left := 0;
combo.Top := 0;
combo.Width := 100;
combo.Height := 17;
combo.Name := 'cbTwinks'; // имя элемента, по которому мы потом будем обращаться к нему

combo.Items.Clear;
combo.Items.Add('НикТвинка1');
combo.Items.Add('НикТвинка2');
combo.Items.Add('НикТвинка3');

Main.show;
end;

procedure test;
begin
    sendmsg('что-то выбрано');
end;
begin
if combo.itemindex > -1 then test;
end.

sendmsg('что-то выбрано'); - много много спамит)