AnsiPos soll schon den Byte-Offset des Substrings, also bei nicht MBCS die Position, zurückgeben, daher hat es ja auch den Namen. Das Beispiel in der Hilfe wäre mit Substr z.B. "CD" und Ergbenis 3 aber tatsächlich etwas sinnvoller gewesen.
Sind die Wohn... bei dir auch (halt ohne "'") Variablen? Ansonsten erhalte ich bei mir das richtige Ergebnis.
Und bei der Geschwindigkeit hilft ein Blick in den Quelltext:
Delphi-Quellcode:
function AnsiContainsText(const AText, ASubText: string): Boolean;
begin
Result := AnsiPos(AnsiUppercase(ASubText), AnsiUppercase(AText)) > 0;
end;