procedure Templeados.FormCreate(Sender: TObject);
begin
ComboBox1.Clear;
ComboBox1.Style := csDropDownList;
with ADOConnection1 do
begin
Connected := True;
GetTableNames(ComboBox1.Items);
end;
ComboBox1.Items.Delete(ComboBox1.Items.IndexOf('Tablaprincipal'));
ComboBox1.ItemIndex := 0;
end;