Delphi 7 использование listbox

[Елена93]

Дан listbox заполненный случайными числами, перенести в новый listbox те числа которые больше 12.
Я смогла вывести в 1-й listbox с помощью рандом числа,

procedure TForm1.Button1Click(Sender: TObject);
  var a: array[1..10] of byte;
var i: byte;
begin
randomize;
for i:=1 to 10 do a[i]:=random(50);
 for i:=1 to 10 do Form1.ListBox1.Items.Add(IntToStr(a[i]));
end;

procedure TForm1.Button2Click(Sender: TObject);
var a: array[1..10] of byte;
var i,s: byte;
begin
 for i:=1 to 10 do
s:=ListBox1.Items.Add(IntToStr(a[i]))   ;
 if s>12 then
 Form1.ListBox2.Items.Add(Inttostr(s));
end;

end.

но никак не получается.

[kventin_zhuk]

Ваша проблема в том, что в цикле for выполняется ОДИН оператор, стоящий после do. Если же нужно выполнить несколько операторов - необходимо взять их в блок begin end; По вашему коду, вы проходите весь listbox1 и присваеваете значения его элементов переменной s, а потом один раз сравниваете ее значение с 12. Т.е вам нужно после do поставить begin, и добавить перед концом процедуры end; к сожалению, в коде показат ь сейчас не могу, т.к сижу с мобльного. Надеюсь понятно.

[Mad_Cat]

procedure TForm1.Button2Click(Sender: TObject);
var a: array[1..10] of byte;
var i,s: byte;
begin
 for i:=1 to 10 do begin
s:=ListBox1.Items.Add(IntToStr(a[i]))   ;
 if s>12 then
 Form1.ListBox2.Items.Add(Inttostr(s));
end;
end;

[Елена93]

Аа теперь все ясно. Спасибо...