delphi 截取字符串

var
   ASource: PChar;
   AStr: String;
   ACount: Integer;
   AStrings: TStringList;

  i,j:integer;

  times,number:String;

begin
   ASource := 'ABC|...   DEF|#### GHI|"不会被分开|#wwwwwwwwwwww';
   AStrings := TStringList.Create;
   try
     ACount := ExtractStrings(['|'], [' ', '#', '.'], ASource, AStrings);
     j:=0;
     for i := 0 to ACount- 1 do
     begin
     j:=j+1;
     if j=3 then
     begin
       //内容的提取1
       times:=AStrings[i];
     end;
     if j=4 then
     begin
       //内容的提取2
       number:=AStrings[i];
     end;

end;