Delphi-programozók! Hogy működhetne itt a buborékrendezés?

Elég kezdő vagyok Delphiben. A feladat ez volt: két "vászon", az egyiken véletleszerű diagramok, véletlenszerű színekkel. A másikon ugyanezek sorba rendezve, természetesen színek szerint. A program első fele megvan, a buborékrendezés teóriáját is tudom, de valahogy nem tudok a kettőt összekapcsolni. A már meglévő alprogram így néz ki:

Image1.Canvas.Brush.Color:=clWhite;

Image1.Canvas.FillRect(Image1.ClientRect);

Randomize;

x:=6;

for i:=1 to 20 do

begin

t[i]:=Random(500);

szin[i]:=Random(256*256*256);

sz:=szin[i];

Image1.Canvas.Brush.Color:=sz;

Image1.Canvas.Rectangle(x,t[i],x+34,513);

x:=x+34;

end;

A Bubble-sort pedig valahogy így:

for i:=2 to 20 do

begin

for j:=20 downto i do

begin

if t[j-1] > t[j] then

begin

a:=t[j-1]; b:=szin[j-1];

t[j-1]:=t[j]; szin[j-1]:=szin[j];

t[j]:=a; szin[j]:=b;

end;

end;

for i:=1 to 20 do

begin

sz:=szin[i];

Image2.Canvas.Brush.Color:=szin[i];

Image2.Canvas.Rectangle(x,t[j],x+34,513);

end;

end;

Nem tudom, hogy egy gombbal csináljam, vagy kettővel, hogy a változók lokálisak vagy globálisak legyenek-e, hogy hogy használjam az i,j változókat. Előre is köszönöm a segítséget!