commetn déclarer des variables utilisables dans plusieurs unit ?

Bonjour,
et oui encore moi !! ^^
Donc voilà, j'ai besoin de certaine variable dans plusieurs unit. Je pensais qu'il fallait les déclaré dans le var avant implementation ! Mais ça marche pas !
Je ne comprend pas du tout !!!
Please help me !
Merci beaucoup
A+++

Unit1
  +--> interface +uses Unit2 (interface visible dans unit1)
  +--> interface +uses Unit3 (interface visible dans unit1)

Unit2
  +--> implementation uses Unit1,Unit3 (interface visible dans Unit2)

Unit3
  +--> implementation uses Unit1,Unit2 (interface visible dans Unit3)


exemple :

Unit Unit1;

Interface {Zone publique}

Uses Unit2, Unit3;

var
  U1 : integer;

Implementation {Zone privée}

procedure TForm1.ShowUU;
begin
  LabelU2.Caption := IntToStr(Unit2.U2);
  LabelU3.Caption := IntToStr(Unit3.U3);
end;

end.
_____________________________________________

Unit Unit2;

Interface {Zone publique}

var
  U2 : integer;

Implementation {Zone privée}

Uses Unit1, Unit3;

procedure TForm2.ShowUU;
begin
  LabelU1.Caption := IntToStr(Unit1.U1);
  LabelU3.Caption := IntToStr(Unit3.U3);
end;

end.
_____________________________________________

Unit Unit3;

Interface {Zone publique}

var
  U3 : integer;

Implementation {Zone privée}

Uses Unit1, Unit2;

procedure TForm3.ShowUU;
begin
  LabelU1.Caption := IntToStr(Unit1.U1);
  LabelU2.Caption := IntToStr(Unit2.U2);
end;

end.

                         

---