[NumLock]

Код:

uses
  IdMultipartFormData, IdHTTP,

function Upload(const AFileName: String): String;
var
  IdHTTP: TIdHTTP;
  IdMultiPartFormDataStream: TIdMultiPartFormDataStream;
begin
  Result:='';
  IdHTTP:=TIdHTTP.Create(nil);
  IdMultiPartFormDataStream:=TIdMultiPartFormDataStream.Create;
  try
    IdMultiPartFormDataStream.AddFile('file',
      AFileName, 'application/octet-stream');
    IdHTTP.HandleRedirects:=False;
    IdHTTP.Host:='zalil.ru';
    IdHTTP.Request.Host:='zalil.ru';
    IdHTTP.Request.UserAgent:='Mozilla/3.0';
    try
      IdHTTP.Post('/upload/', IdMultiPartFormDataStream);
    except
      if (IdHTTP.ResponseCode div 100)=3 then
        Result:='http://zalil.ru'+IdHTTP.Response.Location;
    end;
  finally
    IdMultiPartFormDataStream.Free;
    IdHTTP.Free;
  end;
end;

использование:

Код:

begin
  Edit1.Text:=Upload('d:\Downloads\handblue.bmp');
end;