Tem como eu criar um objeto visual pelo nome?

procedure CreateControl(AClassName: string; AParent: TForm);
var
  Control: TControl;
begin
  Control := MetodoQueCriaControleComNomedaClasse(AClassName);
  Control.Parent := AParent;
end;