кодировка "кривая" Delphi+Indy HTTP client+TLabel

function getResult(action: string; bl: boolean): string;
var
  CoResult: integer;
  HTTP: TIdHTTP;
  Query: String;
  Buffer: String;
begin
  try
    HTTP := TIdHTTP.Create;
    Query := action
    try
      Buffer := HTTP.Get(Query);
    except
      try
        Buffer := HTTP.Get(Query);
      except
        on E: Exception do
    end;
    HTTP.Destroy;
    result := Buffer;
  except
    on E: Exception do 
  end;
end;