Char from set in string?

[Bummi]

Delphi-Quellcode:

const
  ParamSeps = ['=', ':', '?'];

Function SetCharPos(Const s:String):Integer;
var
 i:Integer;
begin
  Result := 0;
  i := 1;
  while (Result=0) and (i<=Length(s)) do
    begin
       if s[i] in ParamSeps  then  Result := i
       else inc(i);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Caption := IntToStr(SetCharPos('That?'))
end;