In Datei Suchen und Kopieren

[Horst0815]

ich muss eine Binary durchsuchen und ab dieser Position bis zum Ende Kopieren

Delphi-Quellcode:

Var
  Target: File;
  Ch: AnsiChar;
  Buf: byte;
Const 
  tar: Array [1 .. 9] of Byte =($3E, $00, $53, $00, $47, $00, $40, $00, $3E);
begin
  MemoInfo.Clear;
  if dlgOpen.Execute then
  begin
    DoubleBuffered := True;
    Application.ProcessMessages;
    AssignFile(Target, dlgOpen.FileName);
    Reset(Target, 1);
      Seek(Target, tar);
     
    end;

und ab da häng ich sicher hilft Blockread/write aber wie durchsuche ich die datei