Чтение NON-Unicode симвлов

type
  TPos = 1..High(Integer);
 
//Поиск подстроки, начиная с позиции aPos.
function StrFindEx(const aStr, aStrF : String; const aPos : TPos) : Integer;
var
  i, j, Len1, Len2 : Integer;
begin
  Result := 0;
  if (aStr = '') or (aStrF = '') then Exit;
  Len1 := Length(aStr);
  Len2 := Length(aStrF);
  if Len2 > (Len1 + aPos - 1) then Exit;
 
  for i := aPos to Len1 - Len2 + 1 do begin
    for j := 1 to Len2 do begin
      if aStr[i + j - 1] <> aStrF[j] then Break
    end;
    if j > Len2 then begin
      Result := i;
      Break;
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  Fn1 = 'file1.dat';
  Fn2 = 'file2.dat';
var
  F1, F2 : file;
  Len1, Len2, PosF : Integer;
  Str1, Str2 : String;
begin
  AssignFile(F1, Fn1);
  //Открываем файл в режиме чтения блоков размером 1 байт.
  Reset(F1, 1);
  Len1 := FileSize(F1);
  SetLength(Str1, Len1);
  if Len1 > 0 then begin
    BlockRead(F1, Pointer(Str1)^, Len1); //Либо так: BlockRead(F1, Str1[1], Len1);
  end;
  CloseFile(F1);
 
  AssignFile(F2, Fn2);
  Reset(F2, 1);
  Len2 := FileSize(F2);
  SetLength(Str2, Len2);
  if Len2 > 0 then begin
    BlockRead(F2, Pointer(Str2)^, Len2); //Либо так: BlockRead(F2, Str2[1], Len2);
  end;
  CloseFile(F2);
 
  //Здесь можно использовать функцию Pos() или PosEx() из модуля StrUtils.
  PosF := StrFindEx(Str2, Str1, 1);
 
  if PosF = 0 then begin
    ShowMessage('Подстрока не найдена.');
  end else begin
    ShowMessage('Подстрока найдена с началом в позиции: ' + IntToStr(PosF));
  end;
end;