제가 아래처럼 IF문을 사용해서 했는데요..
Case문을 사용해서는 할수가 없을까요?
Case문을 사용할려고 연구를 해봤는데 잘 안되네요..

그리고, 이미지 리스트를 사용해서 이미지도 삽입을 했었는데,
해당 이미지가 좌측에 뜬 아이템을 클릭하면 이미지사라집니다.
이미지가 사라지지 않는것은 다른 아이템의 이미지가 뜨기도 하구요?
암만 봐도 모르겠네요..고수님들 부탁 드리겠습니다.
수고하세요.

procedure TForm1.TreeView1Click(Sender: TObject);
begin

  If TreeView1.items[0].Selected Then
       StaTusBar1.SimpleText := 'HW Value'
   Else
   If TreeView1.Items[1].Selected  Then
       Begin
         StaTusBar1.SimpleText := 'Input';
         ShellExecute(handle, 'open', PChar('HWBGINPUT_01.EXE'),'',
             PChar('C:Account_PgmBin'), SW_SHOWNORMAL);
        End
   Else
   If TreeView1.Items[2].Selected Then
      Begin
        StaTusBar1.SimpleText := TreeView1.Selected.Text;
        ShellExecute(handle, 'open', PChar('HWBGJOHYE_01.EXE'),'',
          PChar('C:Account_PgmBin'), SW_SHOWNORMAL);
      End
   Else
   Begin
    StaTusBar1.SimpleText := TreeView1.Selected.Text;
    ShellExecute(handle, 'open', PChar('HWBGJOHYE_02.EXE'),'', PChar
    ('C:Account_PgmBin'), SW_SHOWNORMAL);
   End;