안녕하셔요

아래문장은 정정으로 번턴과 라벨를 또는 에디터를 처음에는 생성후 다음으로 해제시키고 또 생성시키는 것을 반복하는데 왜
찾아서 해제시킨 작업에서 찾아서 해제를 못합니다.
해결을 부탁드립니다.
감사



for i:=0 to self.componentcount-1 do begon
     if  (pos('aSend_' ,TButton.Components[i]).Name)<>0) Or
         (pos('aDelete_',TButton.Components[i]).Name)<>0)      Then TButton.Components[i]).Free
     Else if  (pos('aEdit_'   ,TEdit.Components[i]).Name)<>0)    Then TEdit.Components[i]).Free
     Else if  (pos('aLabel_',TLabel.Components[i]).Name)<>0) Then TButton.Components[i]).Free;
End;