string转TStringList的ExtractStrings在Delphi10.3

var
s: string;
  ACount,i: Integer;
  AStrings: TStringList;
begin

 s := 'about: #delphi; #pascal, programming';
  AStrings := TStringList.Create;

    ACount := ExtractStrings([';',',',':'], [' ','#','.'], PwideChar(s), AStrings);
           //第一个参数是分隔符; 第二个参数是开头被忽略的字符
    For i:=0 to ACount-1 do      begin
    ShowMessage(AStrings[i]);
                           //about
                           //delphi
                           //pascal
                           //programming

    end;
  AStrings.Free;
end;