Problemer med optælling af ord!

Kode 

Const
 SkilleTegn = [',',';','.','!','?','-'];

procedure SkipSkilletegn(var Streng : string);
begin
 while (Length(Streng)>0) and (Streng[1] in SkilleTegn+[' '])
 do Delete(Streng,1,1);
end;

procedure OpsamlOrd(var Streng, NaesteOrd: string);
begin
 NaesteOrd:='';
 while (Length(Streng)>0) and not (Streng[1] in Skilletegn+[' ']) do
 begin
  NaesteOrd:=NaesteOrd+Streng[1];
  Delete(Streng,1,1);
 end;
end;

procedure FindOrd(var Streng, NaesteOrd : string);
begin
 NaesteOrd:='';
 if Streng='' then Exit;
 SkipSkilletegn(Streng);
 if Streng='' then Exit;
 OpsamlOrd(Streng,NaesteOrd);
end;

procedure FindAntalOrd(RichEdit1 : TRichEdit);
var
  Tekst, Ord: string; Antal : integer;
begin
 Antal:=0;
 Tekst:=Form1.RichEdit1.Text;
 while Tekst<>'' do
 begin
  FindOrd(Tekst,Ord);
  if Ord<>'' then Inc(Antal);
 end;
end;

Kode 

unit statistik;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, RichEdit;

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses TekstEditor;

{$R *.DFM}

procedure TForm4.FormActivate(Sender: TObject);
var AntalOrd: integer;
begin
FindAntalOrd(Form1.RichEdit1,AntalOrd);
Label1.Caption:=IntToStr(AntalOrd);
end;


end.