[Beast]

Если не затруднит, можно подробнее, меня интересует, что происходит в этих двух строчках:

Код:

 Delete(S, 1, Pos(Delimiter, S) + Length(Delimiter) - 1);
 Result := Trim(Copy(S, 1, Pos(Delimiter, S) - 1));