Aprenda a usar o tipo de dados WORD da API do Windows em seus programas Delphi

procedure TForm3.Button2Click(Sender: TObject);
var
  maximo, minimo: WORD;
begin
  // vamos obter o valor máximo (65.535)
  maximo := High(WORD);

  // vamos obter o valor mínimo (0)
  minimo := Low(WORD);

  // vamos mostrar o resultado
  Memo1.Lines.Add('O valor máximo de um WORD é: ' +
    (IntToStr(maximo)));
  Memo1.Lines.Add('O valor mínimo de um WORD é: ' +
    (IntToStr(minimo)));
end;