[Onti]

Simplemente asigna el valor en variable integer

Código Delphi [-]
Var
  Lword    :Word;
  LInteger :Integer;
begin
  LWord    :=561;
  LInteger :=LWord;