procedure TForm1.sp1Click(Sender: TObject);
begin try
if GroupBox1.Height = 183 then begin
   GroupBox1.Height := 69;
   sp1.Caption := 'more...';
end else begin
   GroupBox1.Height := 183;
   sp1.Caption := 'hide...';
end;
SetCursorPos(Left+Panel2.Width+GroupBox1.Left+GroupBox1.width-40,GroupBox1.Top+sp1.Top+TOp+112);
except end;End;