Worte zählen im Memo

[hansdieter11]

Delphi-Quellcode:

var
  Form1: TForm1;
  ergebnis : Integer;

implementation

{$R *.DFM}

procedure TForm1.WorteInZeile(Sender: TObject);
var n : integer;
    WortEnde : boolean;
    nWorte : integer;

begin
  nWorte := 0;
  WortEnde := true;

  for n := 0 to length(memo1.lines(n)) do
    begin
      if (WortEnde = true) and (StrZeile[n] <> '')
      then
        begin
          WortEnde := false;
          nWorte := nWorte+1;
        end
      else
        if not WortEnde and (StrZeile[n] = '')
        then
          begin
            WortEnde := true;
          end;
      end;

    ergebnis := nWorte;
end;

procedure TForm1.Button1Click(Sender: TObject);
var n : integer;
    nWorte : integer;

begin
  for n := 0 to memo1.lines.count do
      begin
        nWorte := nWorte+WorteInZeile(memo1.lines[n]);
      end;

  button1.caption := inttostr(ergebnis);
end;

end.

Hallo zusammen,
ich habe ein Problem. Und zwar, wenn ich in einem Memo die Worte zählen möchte, dann meldet Delphi noch Fehler. Wäre nett, wenn mir jemand helfen könnte, möglichst schnell

Vielen Dank im Vorraus