Zeichen zählen

[Matze]

Hi!
Willkommen in der DP!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, Anzahl: integer;
    Wort, Buchstabe: string;
begin
  Wort:='Matthias';
  Buchstabe:='t';
  Anzahl:=0;

  for i:=0 to Length(Wort) do
  if Wort[i] = Buchstabe then inc(Anzahl);
  Label1.Caption:=IntToStr(Anzahl);
end;