[ryderx34]

Ещё способ:

Код:

procedure TForm1.Label1Click(Sender: TObject);
begin
  if Label1.Hint='развернуть' then //первый клик
    begin
      Label2.Top:=112; //другие заголовки сдвигаются вниз
      Label3.Top:=136;
      Label4.Visible:=True; //отображается текст
      Label5.Visible:=True;
      Label1.Hint:='свернуть';
    end
  else
    begin   // повторный клик
      Label4.Visible:=False;  //скрывается текст
      Label5.Visible:=False;
      Label2.Top:=64;     //другие заголовки сдвигаются обратно
      Label3.Top:=88;
      Label1.Hint:='развернуть';
    end;
end;