Como se hace todo esto?

[sanxpue]

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