Even shorter:
uses
Generics.Defaults,
Generics.Collections;
procedure TForm1.Button1Click(Sender: TObject);
var
StrArray: array of string;
begin
SetLength( StrArray, 3);
StrArray[0]:= 'Str 3';
StrArray[1]:= 'Str 2';
StrArray[2]:= 'Str 1';
TArray.Sort<string>(StrArray); // <----------------
end;