>>226
ありがとうございました。ところで下記のような処理をやると順序型が必要ですという
エラーがでてうまく動きません。アドバイスをお願いします。

strCmbName := (Sender as TComboBox).Name;

case strcmbname of
　　'combobox1': Count:=1;
　　'combobox2': Count:=2;
end;