if pPos <> Nil then
begin
result := FileSize - bytesRemaining + LongInt( pPos ) - LongInt( pBuf );
break;
end;
pScan := StrEnd( pScan );
Inc( pScan );
end;
if pPos <> Nil then break;
bytesRemaining := bytesRemaining - bytesToRead;
if bytesRemaining > 0 then
begin
seek( F, FilePos(F)-Length( forString ));
bytesRemaining := bytesRemaining + Length( forString );
end;
end;
finally
CloseFile( F );
If SearchFor <> Nil then StrDispose( SearchFor );
If pBuf <> Nil then FreeMem( pBuf, BufferSize );
end;
end;