Fórum Ler os 2 primeiros bytes de um aqruivo #280399

var
  W: Word;
  OK: Boolean;
begin
  OK := False;
  with TFileStream.Create(´C:\nome_do_arquivo.ext´, fmOpenRead or fmShareDenyWrite) do
  try
    if Read(W, SizeOf(W)) = SizeOf(W) then
      OK := W = Assinatura;
  finally
    Free;
  end;
  // Testa a var OK
end;