[NumLock]

Код:

var
  f: TFileStream;
  v: Byte;
  b: Byte;
begin
  v:=$75;
  f:=TFileStream.Create('Unit1.pas', fmOpenRead);
  try
    f.ReadBuffer(b, 1);
    if v=b then ShowMessage('Ok');
  finally
    f.Free;
  end;
end;