SA>procedure TForm1.Button1Click(Sender: TObject);
SA>var
SA>   Filter: IFilter;
SA>   Storage: IStorage;
SA>   Res: HRESULT;
SA>begin
SA>   Res:= LoadIFilter('C:\Test.mp3', Storage, Filter);
SA>   Caption:= IntToHex(Res, 1);
SA>end;

SA>procedure TForm1.Button3Click(Sender: TObject);
SA>var
SA>   hFileStream: THandle;
SA>   Num: Cardinal;
SA>   Buf: array[0..2048] of Char;
SA>begin
SA>   hFileStream:= CreateFile('C:\Test.mp3:mystream',
SA>                   GENERIC_READ or GENERIC_WRITE,
SA>                   0,
SA>                   nil,
SA>                   OPEN_ALWAYS,
SA>                   0,
SA>                   0);
SA>   if hFileStream <> INVALID_HANDLE_VALUE then
SA>     try
SA>       WriteFile(hFileStream, 'Hello World', Length('Hello World'), Num,  
SA>nil);
SA>       SetFilePointer(hFileStream, 0, nil, FILE_BEGIN);
SA>       ReadFile(hFileStream, Buf, SizeOf(Buf)-1, Num, nil);
SA>       Buf[Num]:= #0;
SA>       MessageBox(0, Buf, 'File Stream Test', MB_OK);
SA>     finally
SA>       CloseHandle(hFileStream);
SA>     end;
SA>end;
SA>