Новичок в этой теме, так что сильно не пинайте. Не получается сделать корректный запрос, перечитал кучу информации, ничего не помогает. На сайт картинку загружает, но ответ сервера не одна ссылка а все ссылки кторые когда либо загружались через программу. Такое чувство как будто сессия не закрывается. Вот функция:

function HttpPostFile(const URL, FieldName, FileName: string;
const Data: TStream; const ResultData: TStrings): Boolean;
const
CRLF = #$0D + #$0A;
var
HTTP: THTTPSend;
Bound, s: string;
begin
Bound := IntToHex(Random(MaxInt), 8) + '1231654654';
HTTP := THTTPSend.Create;
try
s := '--' + Bound + CRLF;
s := s + 'content-disposition: form-data; name="' + FieldName + '";';
s := s + ' filename="' + FileName +'"' + CRLF;
s := s + 'Content-Type: image/jpeg' + CRLF + CRLF;
HTTP.Document.Write(Pointer(s)^, Length(s));
HTTP.Document.CopyFrom(Data, 0);
s := CRLF + '--' + Bound + '--' + CRLF;
HTTP.Document.Write(Pointer(s)^, Length(s));
HTTP.MimeType := 'multipart/form-data, boundary=' + Bound;
Result := HTTP.HTTPMethod('POST', URL);
ResultData.LoadFromStream(HTTP.Docu ment);
finally
HTTP.Free;
end;

Вот так вызываю её:

begin
st := TFileStream.Create('2.jpg', fmOpenRead or fmShareDenyWrite);
try
ProxyHTTPPostFile('http://рicuрiс.nеt/add_photo.php', 'UploadFile', ExtractFilename('2.jpg'), st, TStringList(memo1.Lines));
ShellExecute(0, 'open', 'http://рiсuрiс.nеt/add_photo.php', nil, nil, SW_SHOW);
finally
st.Free;
end;

т.е. если через браузер добавить картинку, то ответ будет с одной ссылкой на загруженный файл. Но если делать через эту функцию ответ приходит с кучей ссылок на картинки которые я раньше загружал.
Даже если просто сделать этот запрос HTTP.HTTPMethod('POST', URL);
то ответ приходит со всеми ссылками. Да даже если просто открыть браузером страницу http://рiсuрiс.nеt/add_photo.php то она отразить все добавленные картинки через программу.