Не могу исправить ошибку в коде

[TUberwer]

Я нашел код одной функции и код вызова этой функции.
Далее код функции добавил в свою программу в свободное место.
Вот сам код:

PHP код:

function TForm1.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; 


И мне выдает ошибку

PHP код:

[Error] Unit1.pas(88): Undeclared identifier: 'HTTPPostFile' 


[Пепел Феникса]

а у вас метод описан в интерфейсной части, как метод формы?
вызываете как метод формы или просто так?

[TUberwer]

Я функцию добавил просто между всеми procedure.
Код для вызова функции еще не вставлял в программу

[Пепел Феникса]

TForm1.

говорит о том что это метод класса TForm1 должен быть.
посмотрел по коду, поидее привязку к методу(эту часть) можно и убрать спокойно.

[TUberwer]

Спасибо, помогло, только теперь вылезла вот эта ошибка

[Error] Unit1.pas(92): Undeclared identifier: 'THTTPSend'

вот в этой строчке:

HTTP: THTTPSend;

[Пепел Феникса]

подключите библиотеку Synapse.

[TUberwer]

Спасибо за ответ! Очень благодарен!=)