var
  substr, s: string;
  p: Integer;
begin
  substr := 'b';
  s := 'ABCD';
  p := Pos(LowerCase(substr), LowerCase(s));
end;