TOnAddUser

type TOnAddUser = procedure(

  Sender: TObject;

  var Login: string;

  var Password: string;

  var Name: string;

  var Mail: string;

  var Profile: Integer;

  var Privuser: Boolean

) of object;