Klassen-Typ als Parameter übergeben

[Ares]

Hallo!

Wie kann ich einen Typ als Parameterübergeben? Folgende funktioniert leider nicht:

Delphi-Quellcode:

    function GetControl(ControlName: String; ControlType: ClassType): TControl;
    var control: TControl;
    begin
      control := MyForm.FindChildControl(ControlName);
      if ((control<>nil) and (control is ControlType)) then
        result := control;
      else
        result := nil;
    end;

Die Funktion soll also überprüfen, ob es auf dem Form MyForm eine Komponente mit dem Namen "ControlType" und vom Type "ControlType" gibt und diese ggf. zurückliefern. Bei diesem Beispiel gibt der Compiler jedoch "'ClassType' ist kein gültiger Typbezeichner" aus.

Wie kann ich also einen Type als Parameter übergeben?

Besten Dank
Ares