Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
//Lo Creas procedure TForm1.Button1Click(Sender: TObject); var T : TEdit; begin T := TEdit.Create(Self);
T.Parent := Self; T.name := 'T1';
end;
//Lo Borras procedure TForm1.Button2Click(Sender: TObject); begin if Self.FindComponent('T1') <> nil then begin TEdit(Self.FindComponent('T1')).Free; end; end;