function StringOfChar(C: Char; I : LongInt): String;
Returns a string of length I with all characters set to character C.