delphi. работа с ComboBox (ошибка в коде)

[Makotik]

Задание: написать программу подсчета числа слов в произвольной строке. В качестве разделителя может быть любое число пробелов. Для ввода строк и работы с ними использовать TComboBox. Ввод строки заканчивать нажатием клавиши Enter. Для выхода из программы использовать кнопку Close.

мой код выглядит следующим образом:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    ComboBox1: TComboBox;
    Label1: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

    // Обработка события активизации формы
procedure TForm1.FormActivate(Sender: TObject); 
begin
ComboBox1.SetFocus;                                  // Передача фокуса ComboBox1
end;

   // Обработка события нажатия левой клавиши мыши
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin                                    // Если нажата клавиша Enter, то...
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:=ComboBox1.Items[nst];             // Занесение выбранной строки в переменную st
    for i:=1 to Length(st) do begin                 // Просмотр всех символов строки st
       case ind of
           0 : if st[i]<>' ' then begin                   // Если встретился символ после пробела
                 ind:=1;
                  n:=n+1;                                     // Число слов увеличивается на единицу
                                 end;
           1 : if st[i]=' ' then ind:=0;                  // Если встретился пробел после символов
                             end;

         end;

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

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Application.Terminate;
end;

end.

Проблема заключается в том, что после ввода текста в строку ComboBox и нажатии Enter "выскакивает" звук об ошибке и ничего далее не происходит (строка не добавляется в список и не выводится число строк в Label3)

помогите пожалуйста разобраться чего не хватает или в чем ошибка.

[Stilet]

"выскакивает" звук об ошибке

Точно ли об ошибке?

nst:=ComboBox1.ItemIndex; // Определение номера выбранной строки
st:=ComboBox1.Items[nst]; // Занесение выбранной строки в переменную st

А если там ничего не выбрано? Надо обрабатывать и такое исключение.

[Makotik]

возможно не так выразилась. звук не ошибки а ... как же объяснить...
так пищит когда невозможно текст ввести или что-то подобное.

даже если ничего не выбрано все тоже самое происходит. вернее ничего не происходит(

[Stilet]

А у тебя там на клавиатуре ничего не залипло?
Я твой код проверил - писка нет лишнего (хотя у меня звуки темы отключены), да и в Лабель значение заносится верное.

[Makotik]

не залипло ничего. на другом компе проверяла - не работает...

[Stilet]

Заархивируй и прикрепи сюда свой проект. Интересно что там у тебя такое пикает не в тему )

[Makotik]

вот прилагаю архив