У тебя просто прога зацикливается в процедуре teamlist.
while n>=1 do В цикле ты не изменяешь N.
Вот как у тебя:
Code
procedure TForm2.teamlist(s: string);
var s1:string; n,p:Integer;
begin
p:=Pos('*',s);
Delete(s,1,p);
n:=Length(s);
while n>=1 do
begin
Pos('*',s);
s1:=Copy(s,1,p-1);
Form2.ComboBox1.Items.Add(s1);
Delete(s,1,p) ;
end;
А надо:
Code
procedure TForm2.teamlist(s: string);
var s1:string; n,p:Integer;
begin
p:=Pos('*',s);
Delete(s,1,p);
n:=Length(s);
while n>=1 do
begin
Pos('*',s);
s1:=Copy(s,1,p-1);
Form2.ComboBox1.Items.Add(s1);
Delete(s,1,p) ;
n:=Length(s);//!!!!!!!
end;
