1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

uses IdMultipartFormData

var
    response: TStringlist;
    data: TIdMultiPartFormDataStream;
    pic: TMemoryStream;
begin

 IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)';

 data := TIdMultiPartFormDataStream.create;
 pic  :=  TMemoryStream.create;
 response :=  TStringlist.Create;

 pic.LoadFromFile('yourfilename_and_path.jpg');

 IdHTTP1.Request.ContentType:='image/jpeg';

 data.AddObject('userfile[]','image/jpeg',pic,'img.jpg');
 data.AddFormField('filename','img.jpg');
 data.AddFormField('imgcontent','safe');
 data.AddFormField('interlinkimage','interlinkno');
 data.AddFormField('action','1');

 response.Add (IdHTTP1.Post('http://imagevenue.com/upload.php',data));

 Memo1.lines.Assign(response);
 //Memo1.Lines.SaveToFile('c:\result.html'); //save content, it's hmtl, contains links to images.

 data.free;
 pic.free;
 response.Free;