Gibt den n-ten Buchstaben eines Wortes aus:

[code:1]
procedure TfmEdStr4.btnAusfuehrungClick(Sender: TObject);
var EinText, AusText: string;
k, n, laenge: integer;
begin
EinText:=edtEingabe.Text;
AusText:=EinText;
laenge:=length(EinText);
n:=strtoint(edtBuchstabe.Text);
for k:=1 to laenge do
if k<>n then
AusText[k]:='*';
edtAusgabe.Text:=AusText;
end;

[/code:1]