Rozwijany/zwijany panel

Witam,
mam pytanie, czy zna ktoś komponent - panel, który da się zwijać i rozwijać po naciśnięciu przycisku. Na stronach WWW często pojawia się takie coś i napis Pokaż/Ukryj zawartość. Ja chciałbym taki panel w Delphi. Mam nadzieję, że jestem zrozumiany.

Zamiast szukać komponentu, lepiej napisać samemu takie coś, wystarczy, że odpowiednio będziesz zmniejszał/zwiększał właściwość Heigth panelu w pętli.

Lamersko, ale wstaw na formę Panel, Memo i Label.
Panelowi daj wysokość na np. 45.
Na panelu umieść Memo i zmień mu właściwość "Algin" na "alClient".
Label ustaw np. nad panelem po prawej stronie i caption ustaw mu na: Pokaż

W OnClick Label1 wklep:

  if (Label1.Caption = 'Pokaż') then
  begin
    Panel1.Height:= 250; //ustaw wysokość na 250
    Memo1.ScrollBars:= ssVertical; //włącz scrolla do przesuwania tekstu
    Label1.Caption:= 'Ukryj'; //zmień caption
  end else
    begin
      Memo1.ScrollBars:= ssNone; //wywal scrolla z Memo
      Panel1.Height:= 45; //zmniejsz spowrotem wysokość Panelu
      Label1.Caption:= 'Pokaż'; //zmień caption
    end;

xD
to tak na szybko, byle co :D
//albo też: Panel1.Height:= Form1.ClientHeight - 50;
//albo GetClientRect
//pobaw się po prostu