아래처럼 Label을 생성시 킨다음...
그 아래 구문처럼 찾아봤는데....
못찾아요.... 잉..~~~~

뭐가 잘못됐는지... 고수님들 보구 답변좀 주세요..~~~

procedure TFrm_main.Button2Click(Sender: TObject);
bagin
With TLabel.Create( Pan_Maint  ) Do Begin
    Autosize := true;
    SetBounds( pt.x - 20, pt.y - 51, width, height );
    Caption := sName;
    transparent := true;
    Font.Color := clBlack;
    Font.size := 15;
    name :=  sName;
    Font.name := '굴림체';
    Parent := Pan_Main ;
    ParentBiDiMode := true;
    update;
End;
end;

procedure TFrm_main.Button1Click(Sender: TObject);
var
   iC , nC : INteger;
begin
   nC := 0;
   for iC := 0 to ComponentCount -1 do
      if (TControl(Components[iC]).Parent = Pan_Main then
         showmessage( TControl(Components[iC]).name );

end;