combobox添加下拉列表?

我想通过一个按钮控件往combobox里添加列表,程序如下:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  InputString: string;
begin
  InputString:= InputBox('添加NTP服务器', '网址/ip', '');
  if trim(inputstring)<>'' then
  begin
  combobox1.Items.text:=inputstring;
  combobox1.Text:=inputstring;
  end
  else
  exit;
end;
不过这样不能将inputstring中的内容保存下来,如果我要把inputstring之中的内容保存在列表中,应如何实现?