[chalys]

Hola no se si comprendí bien lo que quieres hacer, pero creo que quieres crear tus propios procedimientos para desde alli poder acceder a los diferentes objetos como label, edit, button y otros. Lo que yo hago es lo siguiente no se si se ha correcto pero a mi me funciona.



unit Unit1;

interface

uses

........

type

........

procedure Button1Click(Sender: TObject);

procedure cualquierita(Sender: Tobject); // debes declarar tu procedimiento aqui

.......
Imlementacion


procedure TForm1.cualquierita(Sender: Tobject);

begin

milabel.caption := 'estoy aca';

query.sql.text := 'select.... ... ';

query.execsql;

.

.

.

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

cualquierita(Sender);

end;

Espero que te servia ..........