[The Shadow]

Я с этим компонентом не работал. Поэтому я и предложил такой вариант. Если он подходит, то вот код:

Код:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
  public
  end;
var
  Form1: TForm1;
  All: array of TStringList;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
SetLength(All, 3);
All[0]:=TStringList.Create;
All[0].Add('I отдел');
All[0].Add('I сотрудник I отдела');
All[0].Add('II сотрудник I отдела');
All[1]:=TStringList.Create;
All[1].Add('II отдел');
All[1].Add('II сотрудник II отдела');
All[2]:=TStringList.Create;
All[2].Add('III отдел');
All[2].Add('I сотрудник III отдела');
All[2].Add('II сотрудник III отдела');
All[2].Add('III сотрудник III отдела');
for i:=0 to Length(All) - 1 do
ListBox1.Items.Add(All[i].Strings[0]);
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var
i: Integer;
begin
if ListBox1.ItemIndex = -1 then Exit;
ListBox2.Items.Clear;
for i:=1 to All[ListBox1.ItemIndex].Count - 1 do
ListBox2.Items.Add(All[ListBox1.ItemIndex].Strings[i])
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
i: Integer;
begin
for i:=0 to Length(All) - 1 do
All[i].Destroy;
All:=nil;
end;
end.