Задача на Delphi. Сортировка чисел

[mr-professor]

Здравствуйте.
Я начинающий (буквально 2-3 дня) в работе в Delphi и у меня вот такая вот задача: необходимо ввести в поле Edit1 числа через запятую, после нажатия кнопки "Ок" в поле Edit2 выводится результат подсчета количества четных чисел из ранее введеннных.
Пытался сам это реализовать, но мои мытарства ни к чему не привели.
Надеюсь на вашу помощь.
Заранее спасибо.

[HoLToFF]

Я сам в Делфи новичёк, но вот смотри, что у меня получилось.
У тебя должна быть создана форма, на ней поле Edit1, Edit2 и кнопка Button1.
На кнопку Button1 должно быть написано событие он клик:

procedure TForm1.Button1Click(Sender: TObject);
var
c,        //счётчик чётных чисел
j:integer; //помошник разложения строки %)

begin
c:=0;

for j:=1 to length(Edit1.Text) do

  begin
  if (Edit1.Text[j]=',') then      //если находим запятую
    begin
    if (StrToInt(Edit1.Text[j-1]) mod 2) = 0
    // то смотрим на то, что стоит перед ней, если оно делится на 2
    //без остатка, то увеличиваем счётчик
    then inc(c)
    end
    else  // и проверим элемент, который стоит в строке последним
    if j=Length(Edit1.Text) then
    if (StrToInt(Edit1.Text[j]) mod 2) = 0 then inc(c);
  end;


edit2.Text:=IntToStr(c)     //Выведем результат
end;

[mr-professor]

Спасибо! Все получилось! =)