Har lidt problemer med at optælle ord

Hey eksperter


Jeg har i længere tid prøvet at lave en tekst editor og jeg er da kommet så langt at jeg nu skal til at lave nogle procedurere som kan hjælpe mig med at optælle alle ordene i det dokument der er åbnet og derefter give resultatet i en ny form, men jeg kan ikke rigtig compile koden pga. at den melder fejl. Jeg forstår det ikke og vil derfor gerne se om i kan hjælpe mig lidt.

Her er min procedurere:

{Nu vil jeg lave nogle procedurer hvor ved jeg kan finde antal ord som er skrevet i mit dokument}
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(RichEdit: TRichEdit;var Antal: Integer);
var
  Tekst, Ord: string;

begin
    Antal:=0;
    Tekst:=form1.RichEdit1.Text;
    while Tekst<> '' do
    begin
          FindOrd(Tekst,Ord);
          if Ord <> '' then inc(Antal);
    end;

end;

Fejlen den kommer med er
[Error] Unit1.pas(392): ';' expected but '.' found
[Fatal Error] V6.dpr(6): Could not compile used unit 'Unit1.pas'

Det den hentyder til er denne procedure
procedure TForm2.FormActivate(Sender: TObject);
var
  AntalOrd: Integer;

begin
    FindAntalOrd(Form1.RichEdit1,AntalOrd);
    Form2.Label2.Caption:=inttostr(AntalOrd);

end;
Altså den som skal kalde form2 og sætte resultatet i den. Jeg forstår det ikke :( Håber i kan hjælpe mig lidt!!

På forhånd tak,
Martin Slot