function EncodeToMP3(InFile:string; OutFile:string):boolean;
var
NumSamples:DWORD;
InBufSize: DWORD;
OutBufSize:DWORD;
BufWave:PSHORT;
BufMP3: PBYTE;
BassChan:HSTREAM;
beStream:THBESTREAM;
beConfig:TBECONFIG;
fWrite:TFileStream;
SizeOfRead:DWORD;
Encoded: DWORD;
ErrRes:TBeErr;
i, WAVLeng:DWORD;
begin
Result:=false;

BassChan:=BASS_StreamCreateFile(false, PChar(InFile), 0, 0, BASS_STREAM_DECODE);
if BassChan=0 then begin
  BASS_StreamFree(BassChan);
  Exit;
end;

FillChar(beConfig, SizeOf(beConfig), 0);
beConfig.Format.dwConfig:=BE_CONFIG_LAME;
beConfig.Format.LHV1.dwStructVersion:=1;
beConfig.Format.LHV1.dwStructSize:=SizeOf(beConfig);
beConfig.Format.LHV1.dwSampleRate:=44100;
beConfig.Format.LHV1.dwReSampleRate:=0;
beConfig.Format.LHV1.nMode:=BE_MP3_MODE_STEREO;
beConfig.Format.LHV1.dwBitrate:=192;
beConfig.Format.LHV1.dwMaxBitrate:=320;
beConfig.Format.LHV1.nPreset:=LQP_HIGH_QUALITY;
beConfig.Format.LHV1.dwMpegVersion:=MPEG1;

WAVLeng:=BASS_ChannelGetLength(BassChan);

ErrRes:=beInitStream(beConfig, NumSamples, OutBufSize, beStream);
if ErrRes<>BE_ERR_SUCCESSFUL then begin
  beCloseStream(beStream);
  BASS_StreamFree(BassChan);
  Exit;
end;

InBufSize:=NumSamples*4;

fWrite:=TFileStream.Create(OutFile, fmCreate);
try
  BufWave:=AllocMem(InBufSize);
  BufMP3:=AllocMem(OutBufSize);
  try
    i:=0;
    while i<>WAVLeng do begin
      if i+InBufSize<WAVLeng then SizeOfRead:=InBufSize
        else SizeOfRead:=WAVLeng-i;

      BASS_ChannelGetData(BassChan, BufWave, SizeOfRead);
      ErrRes:=beEncodeChunk(beStream, SizeOfRead div 2, BufWave, BufMP3, Encoded);
      if ErrRes<>BE_ERR_SUCCESSFUL then Exit;

      fWrite.WriteBuffer(BufMP3^, Encoded);
      i:=i+SizeOfRead;
    end;

    ErrRes:=beDeinitStream(beStream, BufMP3, Encoded);
    if ErrRes<>BE_ERR_SUCCESSFUL then Exit;

    fWrite.WriteBuffer(BufMP3^, Encoded);
  finally
    fWrite.Free;
    BASS_StreamFree(BassChan);
    beCloseStream(beStream);
  end;
finally
  FreeMem(BufWave);
  FreeMem(BufMP3);
end;
Result:=true;
end;