одна поправочка. если надо искать без учета регистра, то код можно написать так:
Код:
function isVasya(Substr, S: string; CaseSens : Boolean = True): integer;
begin
Result := False;
If CaseSens
Then begin if pos(Substr, S) > 0 then Result:= 1; end
Else begin if pos(AnsiUpperCase(Substr),AnsiUpperCase(S)) > 0 then Result := 1; end;
end;
Вызов тот же.