//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;