Code:

program search;

{$APPTYPE CONSOLE}

uses SysUtils;

const buffSize = 16384;

var F : File;

var buff : AnsiString;

var oldFileMode : integer;

var SearchString: shortString='SunSB';

var SearchPos : integer = -1;

var readed : integer;

var blockStart: integer;

begin

SetLength( buff, buffSize);

assignFile( F, 'Speedometer2.exe');

oldFileMode := FileMode;

FileMode := 0;

reset( F,1);

whilenot eof( F ) dobegin

blockStart := filePos( F );

blockRead( F, buff[1], buffSize, readed);

SearchPos:=Pos( SearchString, buff );

if SearchPos > 0thenbegin

WriteLn( 'Substr found at pos ',

blockStart+SearchPos );

break;

end;

if readed=buffSize then

seek( F, ( filePos( F ) -

length( SearchString )));

end;

closeFile( F );

FileMode := oldFileMode;

SetLength( buff, 0 );

if SearchPos = 0then

WriteLn( 'Substr not found.');

readLn;

end.