I am trying to SingleDataFileStorage with ZenGL and probably there is something wrong in my code:

Code:
function SFDS_Tex_Load(FileName,Extension :string) : zglPTexture;
var
TempStream : TMemoryStream;
Reader :TSFDSFileReader;
OutStream:TStream;
OutStreamSize:Int64;
begin
  TempStream := TMemoryStream.Create;
  Reader := TSFDSFileReader.Create('data.sfds',0 ); //Open GPK File
  OutStream := Reader.OpenStream(FileName, OutStreamSize);
  TempStream.LoadFromStream(OutStream);
  rama.Memory:= TempStream.Memory;
  rama.Size  := OutStreamSize;
  rama.Position:=0;
  Result     := Tex_LoadFromMemory( rama, Extension);
  TempStream.Free;
  TempStream := nil;
  OutStream.Free;
  OutStream:=nil;

end;