[Beast]

Есть такая функция, которая должна разделять текст на части, но понять код не могу - помагите пожалуйста.

Код:

function Token(S: string; Num: integer; const Delimiter: string = ' '): string;
var
 i: integer;
begin
  S := S + Delimiter;
 for i := 1 to Num - 1 do
  Delete(S, 1, Pos(Delimiter, S) + Length(Delimiter) - 1);
  Result := Trim(Copy(S, 1, Pos(Delimiter, S) - 1));
end;