program ExampleCode;

    var
      FiDest : TFSFileStream;
      FiSrc  : TFileStream;

    begin

        // Open ELFS file

        elFileSystem1.FileName := 'c:\app\data.elfs';
        elFileSystem1.Open;

        // Create a directory

        elFileSystem1.MakeDirectory('images');

        // Copy a file into the directory

        FiDest := elFileSystem1.OpenFileStream('/images/picture1.png', fomCreate);
        FiSrc := TFileStream.Create('c:\data\picture1.png', fmOpenRead);
        FiDest.CopyFrom(FiSrc);
        FiSrc.Free;
        FiDest.Free;

        // Close ELFS file

        elFileSystem1.Close;
        
    end.