Anonymní profil Kopretinka – Programujte.com

Děkuju moc, jde to perfektně, jen mám ještě jeden problém, ta funkce mi zachytí první výraz a tím končí, poraďte mi ještě prosím, jak ji přizpůsobit, aby projela celý text. Děkuju moc

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;