procedure TF_MAIN.FormEndDock(Sender, Target: TObject; X, Y: Integer);
var
  ParentPanel: TComponent;
begin
  Docking := False;
  FSCS_Main.PDock1.DockSite := true;
  FSCS_Main.pDock2.DockSite := true;
  FSCS_Main.cbMainPanel.DockSite := true;
  if TForm(Sender).Left > Screen.Width - 100 then
    TForm(Sender).Left := TForm(Sender).Left - 50;
  if TForm(Sender).Top > Screen.Height - 100 then
    TForm(Sender).Top := TForm(Sender).Top - 50;
  // Aey i?eaycuaaaiuo iaiaeae oi?iu
//  DragKind := true; //(anee ii?iaaca ioaycaia)
//  DragKind := false; //(anee ii?iaaca i?eaycaia)
  ParentPanel := TForm(Self).GetParentComponent;
  if ParentPanel = nil then
  begin
    Panel_Addition.DragKind := dkDock;
    Panel_Tree.DragKind := dkDock;
  end
  else
  begin
    Panel_Addition.DragKind := dkDrag;
    Panel_Tree.DragKind := dkDrag;
  end;
end;