Delphi. Составьте программу, поиска в списке заданного слова X.

[ali23210275]

Написала программу а она работает не до конца..если ввести слово не из списка ничего не пишет..потом если написать слова из списка пишет найдено но если опять написать слово не из списка она значение не меняет. пробовала написать else Label3.Caption := 'не найдено'..толку ни какого.

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  s:string;
begin
  s:=Edit1.Text;
  for i:= 0 to ComboBox1.Items.Count-1 do
  begin
    if Combobox1.Items.Strings[i] = s
    then Label3.Caption := 'найдено'
  end;
end;

[Serge_Bliznykov]

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  s:string;
begin
  s:=Edit1.Text;
  for i:= 0 to ComboBox1.Items.Count-1 do
  begin
     if Combobox1.Items.Strings[i] = s
     then begin
        Label3.Caption := 'найдено';
        Exit;
      end; 
  end;
  Label3.Caption := 'не найдено';
end;