解决方法
你可以使用Pos和Copy来做到这一点：
function ExtractText(const Str: string; const Delim1,Delim2: char): string;
var
pos1,pos2: integer;
begin
result := '';
pos1 := Pos(Delim1,Str);
pos2 := Pos(Delim2,Str);
if (pos1 > 0) and (pos2 > pos1) then
result := Copy(Str,pos1 + 1,pos2 - pos1 - 1);
end;