Como resolver esse acento errado?

[lindomar]

Ja tentei todas as conversões.
Retorna com strings doidas.
No Linux não tenho esse problema:

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
var
  decoder : HSTREAM;
  peak : Integer;
  Diretorio : String;
begin
Diretorio:= AnsiToUtf8('Bola de Sabão Badauí'); 
end;