как вызвать одну и ту же процедуру несколько раз

[barbulina]

Подскажите пожалуйста как вызвать процедуру vibor1 так чтобы она выполнялась до тех пор пока ListBox1 не станет пустым, при этом, чтобы до ее окончания не выполнялась аналогичная vibor2 v

procedure vibor1;
begin s:='';
if Form1.ListBox1.Items.Count >= 0 then
begin
lb:=1;
Form1.ListBox4.Items.Add(Form1.List Box1.Items[Form1.ListBox1.Items.Count-1]);
Form1.ListBox1.Items.Delete(Form1.L istBox1.Items.Count-1);
s:=Form1.ListBox4.Items[0];
n:=StrToInt(s[5]);
t[n]:=t[n]-4;
if t[n]> 0 then
sec:=4;
Form1.Timer1.Enabled:=true ;
if (t[n] <= 0) then
sec:=t[n]+4;
Form1.Timer1.Enabled:=true;
end;
Form1.Edit1.Text:=IntToStr(t[n]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
sec:=4;
Form1.Timer1.Interval:=1000;
begin
vibor1;
end;
vibor2
end;

[bulldog5293]

если это

procedure vibor1;
begin s:='';
if Form1.ListBox1.Items.Count >= 0 then
begin
lb:=1;
Form1.ListBox4.Items.Add(Form1.List Box1.Items[Form1.ListBox1.Items.Count-1]);
Form1.ListBox1.Items.Delete(Form1.L istBox1.Items.Count-1);
s:=Form1.ListBox4.Items[0];
n:=StrToInt(s[5]);
t[n]:=t[n]-4;
if t[n]> 0 then
sec:=4;
Form1.Timer1.Enabled:=true ;
if (t[n] <= 0) then
sec:=t[n]+4;
Form1.Timer1.Enabled:=true;
end;
Form1.Edit1.Text:=IntToStr(t[n]);
end;

то
if замени на while

[Alex2391]

if ListBox1.ListCount <> 0 then vibor1(self);

Попробуй может так сработает