Поиск компонента - "набор панелей" (Delphi 7)

[Lime]

Всем доброго времени суток !

У меня маленькая проблемка , мне нужно найти компонент для программы "поиска"
Компонент - набор панелей , как в стандартном поиске XP .В котором панельки сворачиваются кликом по названию, расположены они столбиком и являются контейнерами.

Такойже компонент например в программе Alcohol 120% - слева.

Немного не понимаю как сформулировать поиск.
Помнится в Alphaskins был встроен такой компонент , но мне нужен стандартный , точнее чтобы не сильно отличался от привычного мне поиска в "проводнике".

Может быть вы поможете с поиском ? или укажите на конкретный компонент , так как я долго не работал в делфи и подзабыл многое , в том числе и на сайте давно не был)

Всем откликнувшимся Спасибо !

[Alter]

Такой вроде есть в Delphi 2009.

[Lime]

А для Delphi 7 возможно ли его найти?
В крайнем случае напишу свой подобный , но хочется именно "стандартный" .

[Neeter]

Стандартного нет.
Но можете скачать DevExpress, там вроде было что-то подобное.
Ссылка

[mihali4]

Разместите друг под другом пару групбоксов, 1-й сверху, второй под ним и опробуйте мою прикидку. Может, вам этого будет достаточно?

procedure TForm1.GroupBox1DblClick(Sender: TObject);
begin
if GroupBox1.Height>20 then
begin
GroupBox1.Height:=20;
GroupBox2.Top:=GroupBox2.Top-85;
end else
begin
GroupBox1.Height:=105;
GroupBox2.Top:=GroupBox2.Top+85;
end;
end;

procedure TForm1.GroupBox2DblClick(Sender: TObject);
begin
if GroupBox2.Height>20 then
GroupBox2.Height:=20 else
GroupBox2.Height:=105;
end;

[Lime]

Сообщение от mihali4

Разместите друг под другом пару групбоксов, 1-й сверху, второй под ним и опробуйте мою прикидку. Может, вам этого будет достаточно?

procedure TForm1.GroupBox1DblClick(Sender: TObject);
begin
if GroupBox1.Height>20 then
begin
GroupBox1.Height:=20;
GroupBox2.Top:=GroupBox2.Top-85;
end else
begin
GroupBox1.Height:=105;
GroupBox2.Top:=GroupBox2.Top+85;
end;
end;

procedure TForm1.GroupBox2DblClick(Sender: TObject);
begin
if GroupBox2.Height>20 then
GroupBox2.Height:=20 else
GroupBox2.Height:=105;
end;

Спасибо , на первое время хватит !
У меня был код таково-же рода, но мой был немного больше) , хотя по функциональности не превышает Ваш.
Просто я исказл более красивый и привычный , к "стандартному" компонент.