Hi, versuch es doch einfach mal so
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var buchstabe,zaehlen:integer; <<------------------------------eingefuegt = lokale Variablen
begin
satz:=edit1.Text;
zaehlen:=length(satz);
for buchstabe:=1 to zaehlen do
begin
if satz[buchstabe] = 'a'
then neuertext := neuertext + satz [buchstabe];
end;
label1.Caption:=neuertext;
end;
[roter Kasten]
[/roter Kasten]