No se si lo que te estas refiriendo es esto por ejemplo
Código:
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;