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

BassChan:=BASS_MIDI_StreamCreateFile(false, PChar(InFile), 0, 0, BASS_STREAM_DECODE, 44100);
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.nQuality:=2;
beConfig.Format.LHV1.dwMpegVersion:=MPEG1;

MIDILeng:=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;
 s:=ExtractFileName(InFile);
OutFile:=OutFile+Copy(s, 1, Length(s)-Length(ExtractFileExt(s)))+'.mp3';
fWrite:=TFileStream.Create(OutFile, fmCreate);
try
 BufMIDI:=AllocMem(InBufSize);
 BufMP3:=AllocMem(OutBufSize);
 try
   i:=0;
   while i<>MIDILeng do begin
     if i+InBufSize<MIDILeng then SizeOfRead:=InBufSize
       else SizeOfRead:=MIDILeng-i;

     BASS_ChannelGetData(BassChan, BufMIDI, SizeOfRead);
     ErrRes:=beEncodeChunk(beStream, SizeOfRead div 2, BufMIDI, 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(BufMIDI);
 FreeMem(BufMP3);
end;
Result:=true;
end;