향상 검색만 하다가 도져히 안되어 질문을 드립니다.
아래 프로그램과 같이 그림파일을 LISTVIEW에 표시하는 프로그램을 만드는데,
CAPTION에 파일명을 입력을 하고있읍니다.

LISTVIEW에 있는 ITEM을 선택하면 그화일이 IMAGE에 표시하려고 합니다.

문제는 CAPTION을 보이지않게 하려고합니다


procedure TForm1.Button1Click(Sender: TObject);
var
tmpJpg  : TJPEGImage ;
Bit_map1 , Bit_map2 : TBitmap;
ThumbList   : TListItem;
tmpRect       : TRect;
tmpHeight ,tmpWidth ,i  : Integer;

begin

IF opendialog1.Execute THEN
for I := 0 to opendialog1.Files.Count -1 do begin
   { image1.Picture.LoadFromFile(opendialog1.Files[i]);}
    if LowerCase(ExtractFileExt(opendialog1.Files[i])) = '.jpg' then
     begin
      tmpJpg := TJPEGImage.Create;
      Bit_map2 := TBitmap.Create;
      Bit_map1 := TBitmap.Create;
      Bit_map1.Width   := ImageList1.Width;
      Bit_map1.Height  := ImageList1.Height;
      ThumbList     := ListView1.Items.Add;

      tmpJpg.LoadFromFile(opendialog1.Files[i]);
      Bit_map2.Assign(tmpJpg);

    end;

    if Bit_map2.Width > Bit_map2.Height then // 가로가 긴경우
    begin
      tmpRect.Left   := 0;                         // 가로는 기니깐
      tmpRect.Right  := ImageList1.Width;  // 최고길이로 셋팅
      // 아래부턴 세로의 길이를 어떻게 할지 계산
      tmpHeight      := round(ImageList1.Width / Bit_map2.Width * Bit_map2.Height);
      tmpRect.Top    := round((ImageList1.Height - tmpHeight) / 2);
      tmpRect.bottom := tmpRect.Top + tmpHeight;
    end
  else   // 세로가 긴경우
    begin
      tmpRect.Top    := 0;     // 세로는 최대 길이로 셋팅
      tmpRect.Bottom := ImageList1.Height;
      // 가로 비율 맞춘다.
      tmpWidth       := round(ImageList1.Height / Bit_map2.Height * Bit_map2.Width);
      tmpRect.Left   := round((ImageList1.Width - tmpWidth) / 2);
      tmpRect.Right  := tmpRect.Left + tmpWidth;
    end;

  Bit_map1.Canvas.StretchDraw(tmpRect, Bit_map2);
  ThumbList.Caption := opendialog1.Files[i] ;
  ThumbList.ImageIndex := ImageList1.Add(Bit_map1, nil);

tmpJpg.Free ;
Bit_map1.free ;
Bit_map2.free ;
end;
end;

LISTVIEW에 SMALLIMAGE , VIEWSTYLE = vssmallicon 을 표시하였읍니다.

아니면 file명을 저장할수 있는 다른방법이 있는지요.
부탁드립니다.