Function GetAmountOfWords(Input: String): Integer;
Var
  i     : Integer;
  Count : Integer;
Begin
  For i := 0 to Length(Input) Do
  Begin
    If Input[i] <> #32 Then
      Inc(Count, 1);
  End;
  Result := Count;
End;