procedure TMainForm.DocSelectorCreate(Capt:string);
var
  DocSelectorObj:TToolButton;
begin
  DocSelectorObj:=TToolButton.Create(Docselector);
  with DocSelectorObj do begin
    Parent :=Docselector;
    style:=tbsButton;
    Caption:= ExtractFileName(Capt);
    Hint:=Capt;
    down:=true;
    OnClick:= DocSelectorObjClick;
  end;
end
procedure TMainForm.DocSelectorObjClick(Sender: TObject);
begin
 TToolButton(sender).down:=true;<--이부분이 안됨
end;
이상하게도 맨왼쪽 하나는 되는 데 나머지는 안된다 말이야
고수님들 알으켜 주세요!......
부탁합니다.