Espero que te sirva
Primero lo de label's, para ponerlos todos en 0, dentro de un procedimiento puedes hacer lo siguiente :
Código Delphi
[-]
Procedure Cambiar_Caption(Forma : TForm;Const Cambiar_Por : String = '0');
Var
I : LongInt;
Begin
For I := 0 To Forma.Components.Count-1 Do
If Forma.Components[i] Is TLabel Then
TLabel(Forma.Components[i]).Caption := Cambiar_Por;
End;
Ahora la llamarias de dos formas
1 : Cambiar_Caption(Form1);
2 : Cambiar_Caption(Form1,'Otra Cosa');
Lo que hago se llama paso por parametro :
Cuando Declaro Const Cambiar_por : String = '0'
y uso la forma uno, por default me pone el '0' o lo que yo halla puesto
despues del =
Ahora la segunda...
Supongamos que tienes un procedimiento declarado dentro de la Unit1 y esta declarado el procedimiento dentro de Public de la forma llamada :
Procedimiento Forma_Circular;
Ahora la Unit1 LLama la Unit2, lo primero que hay que hacer en la unit1 es que debes de llamar a la Unit2 en
Implementation
Unit1
Código Delphi
[-]
Implementation
Uses
Unit2;
e Igualmente en la Unit2 llamar a la unit1
Unit2
Código Delphi
[-]
Implementation
Uses
Unit1;
Ahora dentro de la Unit2 en un evento Onclick de un Boton
Código Delphi
[-]
Procedure Form2.Button1OnClick(Sender : TObject);
Begin
Form1.Forma_Circular;
End;
Y creo que esas son tus dudas, si no pos en algo te han de ayudar je
Saludos