Wort Vorkommen in einem Array zählen.

[sintacs]

Hey,
Vielen Dank für die Schneller Antowort
Habe es mal so ausprobiert wie du es mir geschrieben hast, dennoch Zählt er nicht durch, er gibt bei einer Showmessage immer 0 aus. Mein Array besteht aus 20 Unterschiedlichen Sätzen alle durch ein Komma getrennt.

hier mein Code

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

 var
  i, Anzahl: integer;
begin
  Anzahl := 0;
  for i := Low(MyArray) to High(MyArray) do
    if MyArray[i] = 'skirennen' then
       Anzahl := Anzahl + 1 ;
       ShowMessage('skirennen'+IntToStr(Anzahl));
   end;