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;