Du redest hier wohl von Controls (Steuerlemente).
Dann ist es sinnvoll ein Objekt der Klasse TWinControl an die 2.
Unit weiterzugeben.
Delphi-Quellcode:
Unit Unit2;
interface
procedure MachAlleEditsGruen(c:TWinControl);
implementation
procedure MachAlleEditsGruen(c:TWinControl);
var i : integer;
begin
if not Assigned(c)
then Exit;
if c
is TEdit
then
TEdit(c).Color := clGreen;
for i := 0
to c.ControlCount-1
do
MachAlleEditsGruen(c.Controls[i]);
end;
Der Aufruf im Formular wäre:
MachAlleEditsGruen(self);