Delphi fast pos function. . ...