procedure TForm1.Button1Click(Sender: TObject);
begin
  with  ListBox1  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;