1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TBubbleThread.execute;
var   count:integer;
      finished:boolean;
      i:word;
begin
 i:=1;
 startPerformance;
 unit1.form1.Cursor:=crhourglass;
 form1.Button1.Enabled:=false;
 form1.Button2.enabled:=false;

 repeat
  finished:=true;
  for count:=high(form1.line[Bubble]) downto i do
  begin
    form1.Line[Bubble][count].Brush.Color:=Linecolor1;
    if form1.line[Bubble][count].clientwidth>form1.line[Bubble][count-1].clientwidth then
    begin
    bigger:=count;
    smaller:=count-1;
    synchronize(Display);
    sleep(delay);
    finished:=false;
    end;
  end;
 form1.Line[Bubble][i-1].Brush.Color:=linecolor1;
 inc(i);
 until finished;
 form1.Cursor:=crdefault;
 form1.Button1.Enabled:=true;
 form1.Button2.enabled:=true;
 stopPerformance;
 form1.Label6.Caption:=performancestr+'s';
end;