uses
  StrUtils;

var
  s, subStr: String;
  bFound: Boolean;

begin
  s := '1234567890123456demo1234567890';
  subStr := 'demo';
  bFound := CompareMem(@s[17], @subStr[1], Length(subStr));
  ShowMessage(IfThen(bFound, 'found', 'not found'));
end;

FUNCTION StrAtPos(const substr,s:string; p:integer):boolean;
asm
         push edi
         push esi
         test eax,eax
         je @Fail // substring leer
         test edx,edx
         je @Fail // s leer
         test ecx,ecx
         jne @1
         mov ecx,1
@1: mov esi,eax // @substr
         lea edi,[edx+ecx-1] // @s[p]
         mov eax,ecx // p
         mov ecx,[esi-4] // Lenght(substr)
         test ecx,ecx
         je @Fail // Lenght(substr)=0
         lea eax,[eax+ecx-1] // p+Length(substr)-1
         cmp eax,[edx-4]
         jbe @Cmp // Lenght ok
@Fail: xor eax,eax
         jmp @End
@Cmp: mov edx,ecx
         shr ecx,2
         repe cmpsd // (Lenght(substr) div 4) mal 4 Bytes vergleichen
         jne @SetRes
@Bytes: mov ecx,edx
         and ecx,3
         repe cmpsb // (Lenght(substr) and 3) Bytes vergleichen
@SetRes: sete al
@End: pop esi
         pop edi
end;

function StrAtPos(substr, s: string; p: integer): boolean;
asm
         call AnsiLowerCase
         push eax
         mov eax, edx
         call AnsiLowerCase
         mov edx, eax
         pop eax
         push edi
         push esi
         test eax,eax
         je @Fail
         test edx,edx
         je @Fail
         test ecx,ecx
         jne @1
         mov ecx,1
@1: mov esi,eax
         lea edi,[edx+ecx-1]
         mov eax,ecx
         mov ecx,[esi-4]
         test ecx,ecx
         je @Fail
         lea eax,[eax+ecx-1]
         cmp eax,[edx-4]
         jbe @Cmp
@Fail: xor eax,eax
         jmp @End
@Cmp: mov edx,ecx
         shr ecx,2
         repe cmpsd
         jne @SetRes
@Bytes: mov ecx,edx
         and ecx,3
         repe cmpsb
@SetRes: sete al
@End: pop esi
         pop edi
end;

// Subroutine für die Funktionen StrAtPos, TextAtPos, AnsiTextAtPos
// --> EAX=@substr, EDX=@s, ECX=p
// Prüft ob die strings s und subst nicht leer sind und ob s lang genug ist,
// um ab s[p] substr enthalten zu können. Wenn p=0 ist, wird p=1 angenommen.
// Mögliche Resultate:
// 1) Einer der Stings ist leer oder s nicht lang genug:
// Rücksprung zu der Adresse, von der die aufrufende Funktion aufgerufen
// wurde mit dem Resultat False
// 2) Längenprüfung OK
// <-- EDI=@s[p], ESI=@Substr, ECX=Length(substr)
// EDI und ESI wurden auf den Stack gelegt und müssen von der aufrufenden
// Routine vom Stack genommen werden
PROCEDURE _CheckLengths;
asm
         xchg [esp],edi // EDI auf Stack, EDI=Returnadresse
         push esi // ESI auf Stack
         push edi // Returnadresse auf Stack
         test eax,eax
         je @Fail // substring leer
         test edx,edx
         je @Fail // s leer
         test ecx,ecx
         jne @1
         mov ecx,1
@1: mov esi,eax // @substr
         lea edi,[edx+ecx-1] // @s[p]
         mov eax,ecx // p
         mov ecx,[esi-4] // Lenght(substr)
         test ecx,ecx
         je @Fail // Lenght(substr)=0
         lea eax,[eax+ecx-1] // p+Length(substr)-1
         cmp eax,[edx-4]
         jbe @End
@Fail: xor eax,eax
         pop ecx // Resturnadresse der aufrufenden Funktion
         pop esi
         pop edi
@End:
end;


FUNCTION StrAtPos(const substr,s:string; p:integer):boolean;
asm
         call _CheckLengths
         mov edx,ecx
         shr ecx,2
         repe cmpsd // (Lenght(substr) div 4) mal 4 Bytes vergleichen
         jne @SetRes
@Bytes: mov ecx,edx
         and ecx,3
         repe cmpsb // (Lenght(substr) and 3) Bytes vergleichen
@SetRes: sete al
@End: pop esi
         pop edi
end;

FUNCTION TextAtPos(const substr,s:string; p:integer):boolean;
asm
         call _CheckLengths
@Loop: sub ecx,1
         jc @SetRes
         mov al,[esi+ecx] // Char aus substr
         mov dl,[edi+ecx] // Char aus s
         xor al,dl
         je @Loop // identisch
         cmp al,$20
         jne @Fail // nicht nur Bit 5 unterschiedlich
         and dl,$DF // Bit 5 in DL löschen (=UpperCase)
         cmp dl,'A'
         jb @Fail
         cmp dl,'Z'
         jbe @Loop
@Fail: clc
@SetRes: setc al
@End: pop esi
         pop edi
end;

FUNCTION AnsiTextAtPos(const substr,s:string; p:integer):boolean;
asm
         call _CheckLengths
@Loop: sub ecx,1
         jc @SetRes
         mov al,[esi+ecx] // Char aus substr
         mov dl,[edi+ecx] // Char aus s
         xor al,dl
         je @Loop // identisch
         cmp al,$20
         jne @Fail // nicht nur Bit 5 unterschiedlich
         and dl,$DF // Bit 5 in DL löschen (=UpperCase)
         cmp dl,'A'
         jb @Fail
         cmp dl,'Z'
         jbe @Loop
         cmp dl,$C0
         jb @Fail
         cmp dl,$D7
         je @Fail
         cmp dl,$df
         jne @Loop
@Fail: clc
@SetRes: setc al
@End: pop esi
         pop edi
end;