为什么显示时间错误

Question

我在设计一个过程是，用到了显示时间的函数
具体如下：
procedure TFMain.LocalChangeDirExecute(Sender: TObject);
var
  sr: TSearchRec;
  Item : TListItem;
begin
  SetCurrentDir(LocalPath);
  LocalFileList.Clear;
  if FindFirst('*', faDirectory, sr) = 0 then
  begin
    repeat
      if ((sr.Attr and faDirectory) = sr.Attr) and (sr.Name <> '.') and (sr.Name <> '..') then
      begin
        Item:=LocalFileList.Items.Add;
        Item.ImageIndex:=0;
        Item.Caption:=sr.Name;
        Item.SubItems.Add('文件夹');
        Item.SubItems.Add(IntToStr(sr.Size));
        Item.SubItems.Add(DateToStr(sr.Time));
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;其他的属性都正确，可是时间显示老是有问题，请问谁能帮忙解释一下

Answer 1

不能直接取时间，时间有创建、修改，要将时间转换为DOS下才能取.

Answer 2

能不能说得明白一点？怎么转化为dos？

Answer 3

改成这样就没有问题啦：
Item.SubItems.Add(DateToStr(FileDateToDateTime(sr.Time)));