In Datei nach Hex Bytefolge suchen und ändern! Hilfe!

[Uncle Cracker]

Gibt es vielleicht noch eine andere Methode nach den Werten zu suchen und nicht

Code:

If (Buffer[I] = $02) and 
           (Buffer[I + 1] = $40) and 
           (Buffer[I + 2] = $23) Then Begin

Also das ich gleich komplett nach z.B. $020423 und nicht alles einzeln mit "and" verknüpfen. Ich habe das mal in einer Extraschleife probiert, aber leider kann ich das nicht wirklich in die Funktion einbringen, hier mein Test, der auch einzeln funktioniert, aber irgendwie kann ich das nicht einbringen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, x: Integer;
const Werte = '024023159745';
begin
  x := 1;
  For i := 0 to round(length(Werte)/2)-1 do
  begin
    Showmessage(Werte[x]+Werte[x+1]);
    x := x + 2;
  end;
end;

Könnte mir vielleicht jemand helfen, anhand des Beispiels von himitsu bzw. einem eigenem, wie ich nach den Hexwerten suchen kann, die bei mir in "Werte" stehen?


Danke UC