Hola.
Supongo que los componentes de conexión a esa base de datos, los tienes en un DataModule, ¿no?
Si creas ese procedimiento en el DataModule y lo declaras en la sección
public del mismo, lo podrás llamar desde cualquier form/datamodule/unit de tu aplicación.
(No olvides poner en el uses de cada formulario al datamodule en cuestión)
Código Delphi
[-]
procedure TMiDataModule.cone_bd;
begin
codigo...
end;
procedure TPrincipal.FormCreate(Sender: TObject);
begin
MiDataModule.cone_bd;
end;
procedure TOtroForm.FormCreate(Sender: TObject);
begin
MiDataModule.cone_bd;
end;