Запись стрима - подскажите

[AlexII]

Я нашел вот этот код, что б записывать Stream в примере netradio (bass.dll)

var
  FileStream :   TFileStream;
  FileNeme   :   String;      // <= C:\test.mp3


function Get_AppPath : string;
begin
  result:= ExtractFilePath( ParamStr( 0 ) );
end;


procedure StatusProc(buffer: Pointer; len, user: DWORD); stdcall;
begin
  if (buffer <> nil) and (len = 0) then
    SendMessage(win, WM_INFO_UPDATE, 8, DWORD(PChar(buffer)));

  if (FileNeme = '') then
    exit;
  if (FileStream = nil) then
      FileStream:= TFileStream.Create(FileNeme, fmCreate); // create the file
  if (buffer = nil) then
      FileStream.Free // finished downloading
  else
      FileStream.Write(buffer^, len);
end;


function OpenURL(url: PChar): Integer;
var ....
begin
  FileNeme:=  Get_AppPath + Form1.Filename_Edit.Text;
  ...
end;

Подскажите пожалуйста как остановить запись и снова продолжить.