meine StrCharCount geht nich...

[a3rosol]

hiho
hab mir ne StrCharCount fkt gebaut die die anzahl eines bestimmten zeichens in einem strinhg augeben soll

Delphi-Quellcode:

var
  Form1: TForm1;
     var wort,z: string; s,l:integer;
implementation

{$R *.DFM}

[b]function StrCharCount(wort: string; z: string): Integer;
var
  I: Integer;
begin
  Result := 0;
  for I := 1 to Length(wort) do
    if wort[I] = z then
      Inc(Result);
end;

aber anscheinend gibt sie mir keinen wert zurück -.-
wo ist der fehler?

eine weitere frage: wo kann ich meine globalen variablen EINMAl definieren? mich ödet es an immer wort:= edit1.text; zu schreiben...

danke schonmal für eure hilfe