procedure TForm1.FormCreate(Sender: TObject);
begin
  with  ComboBox1  do
  begin
    //アイテムのクリア
    Items.Clear;
    //アイテムに追加
    Items.Add('北海道');
    Items.Add('東北');
    Items.Add('関東');
    Items.Add('信越');
    Items.Add('北陸');
    Items.Add('東海');
    Items.Add('近畿');
    Items.Add('中国');
    Items.Add('四国');
    Items.Add('九州');
    Items.Add('沖縄');
  end;
end;