Получить список файлов и время создания файла в ListView

procedure TForm1.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
  Success: integer;
  DT: TFileTime;
  ST: TSystemTime;
begin
   Success := SysUtils.FindFirst( ‘путь_к_файлу’, faAnyFile, SearchRec );
   if ( Success = 0 ) and
      ( ( SearchRec.FindData.ftLastAccessTime.dwLowDateTime <> 0 ) or
      ( SearchRec.FindData.ftLastAccessTime.dwHighDateTime <> 0 ) )
   then
   begin
      FileTimeToLocalFileTime( SearchRec.FindData.ftCreationTime, DT );
      FileTimeToSystemTime( DT, ST );
      Memo1.Lines.Clear;
      Memo1.Lines.Add( ‘Файл был создан:’ );
      Memo1.Lines.Add( ‘Year – ‘ + IntToStr&#40
; st.wYear ) );
      Memo1.Lines.Add( ‘Month – ‘ + IntToStr( st.wMonth ) );
      Memo1.Lines.Add( ‘DayOfWeek – ‘ + IntToStr( st.wDayOfWeek ) );

      Memo1.Lines.Add( ‘Day – ‘ + IntToStr( st.wDay ) );
      Memo1.Lines.Add( ‘Hour – ‘ + IntToStr( st.wHour ) );
      Memo1.Lines.Add( ‘Minute – ‘ + IntToStr( st.wMinute ) );
      Memo1.Lines.Add( ‘Second – ‘ + IntToStr( st.wSecond ) );
      Memo1.Lines.Add( ‘Milliseconds – ‘ + IntToStr( st.wMilliseconds ) );
   end;
   SysUtils.FindClose( SearchRec );
end;