var
 formData: TIdMultiPartFormDataStream; 
 s,url:string; 
 reggi:tregexpr ;   
begin 
  try formdata:=TIdMultiPartFormDataStream.Create; formData.AddFile('F',furl,'image/gif');  formData.AddFormField('upload', 'yes'); formData.AddFormField('rotate_angle', '0°'); 
s:=  form1.idHTP1.Post('http://www.radikal.ru/action.aspx',formData);  
reggi:=tregexpr.Create;
reggi.Expression:='<input id="input_link_1" value="(.*?)"'; if reggi.Exec(s) then begin 
url:=reggi.Match[1];   
showmessage(url) end
 else showmessage('Не удалось загрузить изображение');
  finally  formdata.Free;  reggi.Free; end;