Worte zählen im Memo

[hansdieter11]

Delphi-Quellcode:

var
  Form1: TForm1;
  ergebnis : Integer;

implementation

{$R *.DFM}

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

begin
  nWorte := 0;
  WortEnde := true;

  for n := 0 to length(memo1.lines(n)) do  //hier meckert Delphi: Operator oder Semikolon fehlt
    begin
      if WortEnde = true and (StrZeile[n] <> '')  //hier meckert Delphi: Undifinierter Bezeichner: 'StrZeile'
      then  //hier meckert Delphi: Operator ist auf diesem Operandentyp nicht anwendbar
        begin
          WortEnde := false;
          nWorte := nWorte+1;
        end
      else
        if not WortEnde and (StrZeile[n] = '')
        then  //hier meckert Delphi: Operator ist auf diesem Operandentyp nicht anwendbar
          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]);  //hier meckert Delphi: Inkompatible Typen: 'TObject' und 'String'
      end;

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

end.

Ich komme überhaupt nicht weiter. Wäre froh über direkte Verbesserung der Fehler, dann werde ich es sicher auch besser verstehen

Vielen Dank im Vorraus