Algorithm Math Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := IntToStr(StrToInt('$FFFF')); //integer = 65535
end;