El código de
dec funciona (comprobado), el tuyo espero que lo hayas puesto de memoria, porque falta en la cabecera el objeto:
Código Delphi
[-]procedure FormCreate(Sender: TObject);
debe decir:
Código Delphi
[-]procedure TFormXXXX.FormCreate(Sender: TObject);
Saludos