while (P^ > ' ') and (P^ <> Delimiter) do {$IFDEF MSWINDOWS} P := CharNext(P); {$ELSE} Inc(P); {$ENDIF} SetString(S, P1, P - P1); end; Add(S);