Form als Parameter übergeben

[Aleshi]

Also,

ich hab das umgesetzt wie du es beschrieben hast hab aber eine kleinigkeit geändert.

Code:

  procedure CompFarbenSetzen(aOwner: TObject); //Hier von TComponet auf TObject geändert

implementation

procedure CompFarbenSetzen(aOwner: TObject); // Das Selbe hier auch
var ini: TIniFile;
    a : String;

Code:

   h := StrToInt( a );
    a := ini.ReadString('TEdit','Schriftfarbe','0');
    k := StrToInt( a );

    with aOwner as TForm do // hier "as TForm" ergänzt 
    begin
       for i := 0 to ComponentCount -1 do
         if (Components[i] is TPanel) then
           begin

es hat schon vorher funktioniert aber für spätere Modifikationen muß ich das TObject nehmen

Nochmals vielen Dank!