Nog korter:
gebruik
Generics.Defaults,
Generics.Collections;
procedure TForm1.Button1Click (Afzender: TObject);
var
StrArray: serie van koord;
begin
SetLength (StrArray, 3);
StrArray [0]: = „Streptokok 3“;
StrArray [1]: = „Streptokok 2“;
StrArray [2]: = „Streptokok 1“;
TArray.Sort (StrArray); // <---------------->eind;