Delphi Pos Function Example