Sort // Several Properties

Delphi

procedure TForm1.Button3Click(Sender: TObject); // Sort

var

i, change: Integer;

DeG : String; // First Propertie
ColG : Tcolor; // Second Propertie
DeidG : Integer; // third Propertie

i:=0;
change := 0;

while change = 0 do

begin
change := 1;
for i := 1 to 9 do

begin
if (DeL[i] > DeL[i+1]) then

begin

DeG := DeL[i+1];
ColG := DelCol[i+1];
DeidG := Deidx[i+1];

DeL[i+1] := DeL[i];
DelCol[i+1] := DelCol[i];
Deidx[i+1] := Deidx[i];

DeL[i] := DeG;
DelCol[i] := ColG;
Deidx[i] := DeidG;

change := 0;
end;
end;
end;

end;