Procedure TStrings.SetDelimitedText(const AValue: string); has about 16 calls to Length(AValue), so make a variable NLen to speed up it. -- Regards, Alexey