procedure TForm1.UpDown1ChangingEx(Sender: TObject; var AllowChange: Boolean;
NewValue: SmallInt; Direction: TUpDownDirection);
begin
Case Direction of
UpdUp:With ComboBox1 do
if ItemIndex >=0 Then ItemIndex := ItemIndex-1;
UpdDown:With ComboBox1 Do
If ItemIndex < Items.Count-1 Then ItemIndex := ItemIndex+1;
end;
end;