Porters Stemming Algorithm in Delphi