RzComboBox_ProjectionType.Items.Clear;
  RzComboBox_ProjectionType.AddItemValue('三角形','0');
  RzComboBox_ProjectionType.AddItemValue('原形','1');
  RzComboBox_ProjectionType.ItemIndex := 0;

procedure TRzComboBox.ClearItemsValues;
begin
  Items.Clear;
  Values.Clear;
end;

procedure TRzComboBox.AddItemValue( const Item, Value: string );
begin
  Items.Add( Item );
  Values.Add( Value );
end;

procedure TRzComboBox.InsertItemValue( Index: Integer; const Item, Value: string );
begin
  Items.Insert( Index, Item );
  Values.Insert( Index, Value );
end;

procedure TRzComboBox.DeleteItemValue( Index: Integer );
begin
  Items.Delete( Index );
  Values.Delete( Index );
end;