[Delphi] Problem z etykietą

Jak zrobić żeby wstawić
w label.Caption lub Edit.Text
określony znak w określone miejscu tj.
Etykieta labela wygląda tak "_ _ _ _ _ "
i teraz co zrobić np. po naćiśnięciu klawisza
"A" żeby etykieta wyglądała tak " _ _ _ A _"

lub może jest coś więcej niż funkcja
StringOfChar('A', 5), która będzie potrafa
zrobić powyższe.

Pozdrawiam.

var
S: string;
begin
S:=Label1.Caption;
S[5]:='A';
Label1.Caption:=S;
end;