Fórum usar uma funçao em todas units... #266096

function WordsCount(s :string): integer; 
var 
ps: PChar; 
nSpaces,n : integer; 
begin 
 n := 0;
 s := s + #0;
 ps := @s[ 1 ];
 while( 0 <> ps^ ) do
 begin
  while((´ ´ = ps^)and(0 <> ps^)) do
  begin
   inc( ps );
  end;
  nSpaces := 0;
  while((´ ´ <> ps^)and(0 <> ps^))do
  begin
   inc(nSpaces);
   inc(ps);
  end;
  if ( nSpaces > 0 ) then
  begin
   inc( n );
  end;
 end;
 Result := n;
end;