[angvelem]

Может лучше поделить процедуру? Часть кода вынести в таймер или "нить"?
А здесь:

Код:

if not FileExists(FlacName+'t.flac') then Exit; 
    while not RenameFile(FlacName+'t.flac',FlacName+'.flac') do Application.ProcessMessages

так не лучше будет?

Код:

  if FileExists(FlacName+'t.flac') then
    while not RenameFile(FlacName+'t.flac',FlacName+'.flac') do Application.ProcessMessages

но лучше всё же разделить код.