Danke für die Antwort. Schade das die fehlerhaft sind...
So eine ähnliche Implementierung hatte ich schon. Ich werde das ganze mal noch hier mit versuchen
http://www.delphipraxis.net/712289-post42.html. Allerdings meckert hier Lazarus bei einigen Assemblerbefehelen.
Z.B. hier:
@FillSkip: movzx edx,[edi+ecx] // SearchFor[i]
FastPosUnit.pas(85,30) Error:
Asm: [movzx reg32,mem32] invalid combination of opcode and operands
Aber das wäre vielleicht ein neues Thema.