Вывести четные числа из строки

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Edit1: TEdit;
    Button1: TButton;
    btn1: TButton;
    lbl1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
var
  i:integer;
  z:Char;
  st:string;
begin
  for i:=1 to length(edit1.text) do
    begin
       z:=Edit1.Text[i];
       if (z<>' ') then
           ListBox1.Items.add(edit1.text[i]);
    end;
  for i:=1 to Length(Edit1.text) do
   begin
     z:=Edit1.Text[i];
     if (z<>' ') then
       if Odd(StrToInt(z)) then
         st:=st+z+' ';
   end;
   lbl1.Caption:=st;
end;
 
end.

unit tema5;
 
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);
  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;
 
end.