procedure

[pacopenin]

Añado un pequeño apunte que te puede ayudar.

Si lo estas haciendo desde principal, debes declarar dicho procedimiento en la parte private o public (dependiendo del ámbito que quieras darle) de la clase TPrincipal, para que "conozca" los objetos que tiene. Y luego en la implementation debes poner

Código Delphi [-]
procedure TPrincipal.cone_bd;
 begin
 codigo...
 end;

De todas formas, opino como defcon1_es y el lugar más adecuado sería el DataModule, y haciendo lo que dice no deberías tener problemas.