[Helltar]

var
  a, b: string;

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