Cómo conocer la información de un archivo especí­fico

procedure TForm1.Button1Click(Sender: TObject);
var
  MyS: TWin32FindData;
  FName: string;
  MyTime: TFileTime;
  MySysTime: TSystemTime;
begin
  Memo1.Clear;
  FName:='C:\Documents and Settings\fleonor\Desktop\fotod\20-05-2009\CIMG0046.JPG'; //Aquí­ colocamos la ruta del archivo
  with Memo1.Lines do
  begin
    Add('Directorio - '+ExtractFileDir(FName));
    Add('Disco - '+ExtractFileDrive(FName));
    Add('Extensión - '+ExtractFileExt(FName));
    Add('Nombre del Archivo - '+ExtractFileName(FName));
    Add('Ruta - '+ExtractFilePath(FName));
    Add('');
 
    FindFirstFile(PChar(FName), MyS);
    case MyS.dwFileAttributes of
      FILE_ATTRIBUTE_COMPRESSED: Add('Atributo - Archivo está comprimido');
      FILE_ATTRIBUTE_HIDDEN: Add('Atributo - Archivo está escondido');
      FILE_ATTRIBUTE_NORMAL: Add('Atributo - Archivo sin atributos');
      FILE_ATTRIBUTE_READONLY: Add('Atributo - En Modo Lectura');
      FILE_ATTRIBUTE_SYSTEM: Add('Atributo - Archivo del sistema');
      FILE_ATTRIBUTE_TEMPORARY: Add('Atributo - Archivo temporal');
      FILE_ATTRIBUTE_ARCHIVE: Add('Atributo - Fichero de Archivo');
    end;
 
    MyTime:=MyS.ftCreationTime;
    FileTimeToSystemTime(MyTime, MySysTime);
    Add(
      'Creado el - '+
      IntToStr(MySysTime.wDay)+'.'+
      IntToStr(MySysTime.wMonth)+'.'+
      IntToStr(MySysTime.wYear)+'  '+
      IntToStr(MySysTime.wHour)+':'+
      IntToStr(MySysTime.wMinute));
 
    MyTime:=MyS.ftLastAccessTime;
    FileTimeToSystemTime(MyTime, MySysTime);
    Add(
      'Modificado el - '+
      IntToStr(MySysTime.wDay)+'.'+
      IntToStr(MySysTime.wMonth)+'.'+
      IntToStr(MySysTime.wYear));
 
    Add('Tamaño - '+IntToStr(MyS.nFileSizeLow));
    Add('Nombre Alterno - '+StrPas(MyS.cAlternateFileName));
  end;
end;