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