Incluso más corto:
aplicaciones
Generics.Defaults,
Generics.Collections;
procedimiento TForm1.Button1Click (remitente: TObject);
var
StrArray: arsenal de secuencia;
comenzar
SetLength (StrArray, 3);
StrArray [0]: = “Str 3”;
StrArray [1]: = “Str 2”;
StrArray [2]: = “Str 1”;
TArray.Sort (StrArray); extremo <---------------->de //;