procedure TForm1.NewClick(Sender: TObject); var A:string; begin A:=combobox1.Text; combobox1.items.Add(A); end;procedure TForm1.DeleteClick(Sender: TObject); var A:String; I:Integer; begin A:=Combobox1.Text; I:=combobox1.ItemIndex; combobox1.Items.Delete(I); COmbobox1.Items[I-1]:=A; end;
var A:string;
begin
A:=combobox1.Text;
combobox1.items.Add(A);
end;procedure TForm1.DeleteClick(Sender: TObject);
var A:String;
I:Integer;
begin
A:=Combobox1.Text;
I:=combobox1.ItemIndex;
combobox1.Items.Delete(I);
COmbobox1.Items[I-1]:=A;
end;