Added Naive String Matching in Delphi