Pasar punteros a objentos en un procedimiento

[__cadetill]

mas o menos seria una cosa asi

* Llamada -> pasamos un TLabel y un TEdit

 
begin
     Actualizar(Label1, Edit5);
end;

* declaracion -> recibimos el TLabel y el TEdit

procedure Actualizar(L : TLabel; E . TEdit);
begin
     L.Caption := 'Nuevo caption';
     E.Text := 'Nuevo texto';
end;

En delphi, cuando se pasa un objeto por parametro, siempre se esta pasando un puntero a el, por lo tanto, si modificas cualquier propiedad dentro del procedimiento Actualizar, seguira estando al salir de el.

Bueno, espero que te sirva