Como se puede programar directamente???

[Descendents]

No se si lo que te estas refiriendo es esto por ejemplo

  Procedure CreateButton;
  var NewButton : TButton;
  begin
    NewButton := TButton.create(self);

    with NewButton do
      begin
        Name := 'Button1';

        Top := 30;
        Width := 100;
        Left := 5;

        Parent := self;

        Caption := 'Run-time button!';
      end;
  end;