You can replace SetLength() + FillChar() with OutPut := StringOfChar(#32, TheSizeYouNeed)Bart
Function StringOfChar(c : Ansichar;l : SizeInt) : AnsiString;begin SetLength(StringOfChar,l); FillChar(Pointer(StringOfChar)^,Length(StringOfChar),c);end;
Yes but it works for me.What system are you using?