Работа с Listbox

[_Алексей_]

Здравствуйте помогите пожалуйста мне в написании этой программы)
Разработать проект, предоставляющий возможность выбирать из множества символов русского алфавита гласные буквы.
Имеются 2 Listbox(а) в первом содержатся некоторые слова и при нажатии на некоторое слово из 1 listbox(a) и переходило во второй листбох только гласные буквы а остальное оставалось на в первом листбохе.
Спасибо заранее)
Я не сильно шарю в делфи но что то знаю)

[Stilet]

procedure TForm1.ListBox1Click(Sender: TObject);
var s:string;j,i:integer;
begin
// Работаем с первым Листом
 with ListBox1 do begin
// Если в нем что-то выбрано
   i:=ItemIndex;
   if i<>-1 then begin
// То в переменку запихиваем все гласные, что найдены в выбранной строке
     s:='';
     for j:=1 to Length(Items[i]) do
//проходя циклом по этой строке и сравнивая их с набором гласных
     if Items[i][j] in ['а','о','и'] then s:=s+Items[i][j]
//Потом собранное добавляем
     ListBox2.Items.Add(s);
   end;
 end;
end;

Годится?

[_Алексей_]

Сообщение от Stilet

procedure TForm1.ListBox1Click(Sender: TObject);
var s:string;j,i:integer;
begin
 with ListBox1 do begin
   i:=ItemIndex;
   if i<>-1 then begin
     s:='';
     for j:=1 to Length(Items[i]) do
     if Items[i][j] in ['а','о','и'] then s:=s+Items[i][j]
     ListBox2.Items.Add(s);
   end;
 end;
end;

Годится?

Да спасибо)

[_Алексей_]

а можешь объяснить что и как вообщем комментарий я хочу понять)

[Stilet]

Могу. Закоментил свой пост см. выше.