Может быть я допустил ошибку при отправке файла?

[TUberwer]

Снова всем привет!(
Наверно я уже многих ******(надоел), но все же я тут с очередным вопросом...
Итак, у меня есть функция отправки файла в google speech api.

function HTTPPostFile(Const URL, FieldName, FileName: String; Const Data: TStream; Const ResultData: TStrings): Boolean;
const
  CRLF = #$0D + #$0A;
var
  HTTP: THTTPSend;
  Bound, Str: String;
begin
  Bound := IntToHex(Random(MaxInt), 8) + '_Synapse_boundary';
  HTTP := THTTPSend.Create;
  try
    Str := '--' + Bound + CRLF;
    Str := Str + 'content-disposition: form-data; name="' + FieldName + '";';
    Str := Str + ' filename="' + FileName + '"' + CRLF;
    Str := Str + 'Content-Type: audio/x-flac; rate=8000' + CRLF + CRLF;
    HTTP.Document.Write(Pointer(Str)^, Length(Str));
    HTTP.Document.CopyFrom(Data, 0);
    Str := CRLF + '--' + Bound + '--' + CRLF;
    HTTP.Document.Write(Pointer(Str)^, Length(Str));
    HTTP.MimeType := 'audio/x-flac; rate=8000, boundary=' + Bound;
    Result := HTTP.HTTPMethod('POST', URL);
    ResultData.LoadFromStream(HTTP.Document);
  finally
    HTTP.Free;
  end;
end;

При нажатии на кнопку я вызываю эту функцию, получаю ответ от google и вписываю этот ответ в memo

procedure TForm1.Button3Click(Sender: TObject);
var
sound : String;
Stream: TMemoryStream;
StrList: TStringList;
HZ: String;
begin
Stream := TMemoryStream.Create;
StrList := TStringList.Create;
sound := ExtractFilePath(ParamStr(0))+'sound.flac';
HTTPPostFile('https://www.google.com/speech-api/v1/recognize?xjerr=1&client=chromium&lang=ru-RU', sound, ExtractFilename('sound'), Stream, StrList);
Form1.Panel1.Caption := 'Success';
Form1.Memo1.Lines.Assign(StrList);
Stream.Free;
StrList.Free;
end;

Но какой бы я аудио-файл не отправлял, приходит ответ от гугла что голос не распознан, я думаю что ошибка в коде отправки файла...
Я скачивал программу для распознавания голоса с статьи http://habrahabr.ru/post/144535, записывал звук через нее, она определила что я сказал, потом тот же аудио-файл отправил через свою программу, и гугл не распознает..
Код функции брал с этой статьи http://habrahabr.ru/post/144535, и код вызова функции брал тоже оттуда, только немного поменял, вот код со статьи

HTTPPostFile('https://www.google.com/speech-api/v1/recognize?xjerr=1&client=chromium&lang=ru-RU', 'userfile', ExtractFilename(OutFileName), Stream, StrList);

и вот мой

HTTPPostFile('https://www.google.com/speech-api/v1/recognize?xjerr=1&client=chromium&lang=ru-RU', sound, ExtractFilename('sound'), Stream, StrList);

[raxp]

...то, что вы с десяток клон-тем по одному и тому же вопросу создадите, популярности вам не добавит, как и желания форумчан вам помогать. К слову, чем не устроили мои DLL-ки? Бесплатные, все разжевано.

Сами хотите, так изучайте API, пользуйтесь сниффером.