TMessage1.Create Constructor