안녕하셔요
컴포넌트를 Button,Edit,Label등을 반목하여 생성하여 ㅅ해제후 또 생성하는 작업입니다
생성과 해제가 반복되는 작업입니다.
그런데 같은 컴포넌트를 찾아서 해제하는 작업에 문제가 있습니다.
부탁드립니다.
소스는 아래와 같습니다.

       For i:=0 to Self.ComponentCount-1  Do Begin
            If      (Pos('aSend_'  ,TButton(Self.Components[i]).Name)<>0) Or
                    (Pos('aDelete' ,TButton(Self.Components[i]).Name)<>0) Then TButton(Self.Components[i]).Free
            Else If (Pos('aEdit_'  ,TEdit  (Self.Components[i]).Name)<>0) Then TEdit  (Self.Components[i]).Free
            Else If (Pos('aMemo_'  ,TMemo  (Self.Components[i]).Name)<>0) Then TMemo  (Self.Components[i]).Free
            Else If (Pos('aLabel_' ,TLabel (Self.Components[i]).Name)<>0) Then TLabel (Self.Components[i]).Free
            Else If (Pos('aShape_' ,TShape (Self.Components[i]).Name)<>0) Then TShape (Self.Components[i]).Free
            Else If (Pos('aImage_' ,Timage (Self.Components[i]).Name)<>0) Then Timage (Self.Components[i]).Free;
        End;