BLAH

{$I MSSL\MSSL.scar}

procedure ScriptTerminate;
begin
  MSSL_Unsetup;
end;

var
  tmp: TAnsiStrArray;
  TSA: TStrArray;
  h, i: Integer;

function AnsiStrArrayToStrArray(x: TAnsiStrArray): TStrArray;
var
  h, i: Integer;
begin
  h := High(x);
  SetLength(Result, (h + 1));
  for i := 0 to h do
    Result[i] := string(x[i]);
end;

function StrArrayToAnsiStrArray(x: TStrArray): TAnsiStrArray;
var
  h, i: Integer;
begin
  h := High(x);
  SetLength(Result, (h + 1));
  for i := 0 to h do
    Result[i] := AnsiString(x[i]);
end;

begin
  MSSL_Setup;
  TSA := ['Test3', 'Test0', 'Test2', 'Test1', 'Test4'];
  tmp := StrArrayToAnsiStrArray(TSA);
  MSSL_TSASort(tmp, sa_MergeSort, so_HighToLow);
  TSA := AnsiStrArrayToStrArray(tmp);
  SetLength(tmp, 0);
  h := High(TSA);
  for i := 0 to h do
    WriteLn(TSA[i]);
end.