FindComponent und ComboBox

[MisterCP]

Hi,

Ich bastle jetzt schon seit mehr als einer Stunde an der richtigen Lösung, bekomme aber den blöden Fehler "EInvalidCast" einfach nicht weg. Kann mir event. jemand sagen was ich falsch mache?

Zur Erklärung:
- auf frmMain liegt ein Pagecontrol welches auf dem Panel[0] mehrere Comboboxen hat.
- in Untit untDraw sind verschiedene Funktionen zusammengafaßt welche auf diese ComboBoxen zugreifen

Delphi-Quellcode:

unit untDraw;

interface
    //--Einbindung externer Units-----------------------------------------------
    uses
        SysUtils, QStdCtrls, Classes,
        {Selbstdefinierte Units}
        untPublicFkt, untAISCOM, untLGU;

    //--Deklaration von Typen---------------------------------------------------
    //type

    //--Deklaration von Variablen-----------------------------------------------
    //var

    //Deklaration von öffentlichen Funktionen-----------------------------------
    procedure SetCfg_KonfAE_1;
    procedure SetCfg_KonfAE_2;
    procedure SetCfg_KonfR1_1;

    procedure RefreshPage_KonfAE_1;
    procedure RefreshPage_KonfAE_2;
    procedure RefreshPage_KonfR1_1;

{== Ende des Interface-Abschnitts==============================================}
implementation
uses
    untMain; //die "späte" Deklaration im Implementation-Abschnitt ist notwendig,
             //um eine Cross-Referenz zu vermeiden
             //(passiert, wenn sie im Interface-Abschnitt stehen würde)
{------------------------------------------------------------------------------}
procedure SetCfg_KonfAE_1;
    var
        i, k, AnzItems: Integer;
        objComboBox: TComponent;
    begin
        for i := 1 to 4 do begin
            objComboBox := frmMain.FindComponent ('cmbAE' + IntToStr(i) + '_Typ');
            //if ((objComboBox <> nil) and (objCombobox is TComboBox)) then begin
            if (objComboBox <> nil) then begin
                (objComboBox as TComboBox).clear;
                TComboBox(objComboBox).Items.Add('- - - - - - - - - -');
                AnzItems := GetInitLong(AppININame,'General', 'AnzEingangsTyp', 0, 20, 0);
                for k := 1 to AnzItems do begin
                    TComboBox(objComboBox).Items.Add(GetLngString(9000 + i, LngNr));
                end;{next k}
            end;{if}

Problem / Fragestellung:
- Abfrage (objCombobox is TComboBox) bringt false, warum???
- wenn ich mir objComboBox.ClassName anzeigen lasse steht da wie erwartet "TComboBox"
- lasse ich die Abrage weg kommt sowohl bei der Variante "(objComboBox as TComboBox).clear als auch bei der Variante in der Zeile darunter der Fehler EInvalidCast mit Message "Invalid Class typecast"

Vielen Dank schon mal für eure Hilfe.