var a, b: string; begin a := 'abc'; b := SetChar(a, 'X', 1); DrawText(b, 0, 0); Repaint; Delay(5000); end.