Criando objetos dinamicamente em Delphi

Criando objetos em tempo de execução
Adicione a biblioteca StdCtrls na sessao uses
declare a variavel do tyipo q vc quer criar
e use o codigo seguinte
procedure TForm1.BotaoCriaOnClick(Sender : TObject); Var Button : TButton; begin Button := TButton.Create(Form); with Button do begin Parent := Form; height := 32; width := 128; caption := 'Click em mim!'; left := (Form.ClientWidth - width) div 2; top := (Form.ClientHeight - height) div 2; end; end;