[Dellink]

Реализовать чтение и сохранение параметров ComboBox при запуске и завершении программы.
В ComboBox есть парочка строчек, туда добавляем ещё несколько, как их сохранить в ini файл, у меня только одну строчку получается....

Код:

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
   if Key =#13 then //Если нажата клавиша Enter то...
   begin
       //  Строка из окна редактирования заносится в список выборa
    ComboBox1.Items.Add(ComboBox1.Text);
    ComboBox1.Text := ''; //Очистка окна редактирования
   end;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
var
  St : string;
  n, i, nst, ind  : integer;
begin
  n   := 0; //Содержит число слов выбранной строки                                                          //Содержит число слов
  ind := 0;
//Определение номера выбранной строки
  nst := ComboBox1.ItemIndex;
//Занесение выбранной строки в переменную st
  St := ComboBox1.Items[nst];
//Просмотр всех символов строки st
  for i := 1 to Length(St) do
  begin
      if St[i]<>' ' then
       ind := ind+1;
      if (St[i]=' ') or (i=Length(St)) then
        begin
          if ind=5 then
            n := n+1;
          ind:=0;
        end;
  end;

  Label3.Caption := IntToStr(n); //Вывод числа слов в Label3
  end;