Zugriff auf beliebiges Element eines Forms

[Xong]

Herzlichen Dank für deine Antwort.
Ich vermutete, dass es schon eine fertige Funktion gibt.

Meine Lösung:

Delphi-Quellcode:

{
  Rekursive Suche nach einer Komponente anhand ihres Namens

  Parameter
    s:      Name der gesuchten Komponente
    parent: Startkomponente, bei der mit der Suche begonnen werden soll.

  Rückgabewert
    Gibt bei Erfolg die gesuchte Komponente zurück, bei Misserfolg nil.
}
function FindComponentByName(s: TComponentName; parent: TComponent): TComponent;
var i: Integer;
begin
  if parent.Name = s then begin
    // Gefunden!
    Result := parent;
  end else begin
    if parent.ComponentCount > 0 then begin
      for i:=0 to parent.ComponentCount - 1 do begin
        Result := FindComponentByName(s,parent.Components[i]);
        if Result <> nil then
          break;
      end;
    end else begin
      Result := nil;
    end;
  end;
end;