Aufnahme Code für netradio - alles richtig?

[AlexII]

Hallo,

hab diesen Code für die .mp3 Aufnahme des netradios zusammen gestellt. Kann vllt jemand diesen überprüfen, ob da alles ok ist, denn die Qualität der .mp3 Dateien ist irgendwie schlecht, obwohl die Bitrate nicht verändert wird und die Aufnahme ist zeitversetzt.

Delphi-Quellcode:

private
    procedure StartRec;
    procedure StopRec;

var
    WaveStream     : TMemoryStream;



procedure TForm1.StartRec;
begin
    WaveStream.Clear;
end;

procedure TForm1.StopRec;
var
  FileName : String;
begin
  FileName:='test.mp3';
  WaveStream.SaveToFile(FileName);
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)))
  else
    WaveStream.Write(buffer^, len);  <-------
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
...
  WaveStream:= TMemoryStream.Create;
...
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
StartRec;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
StopRec;
end;