[scroyler]

PHP код:

var
  Response: String;
  FormData: TIdMultiPartFormDataStream;
  S, E: integer;
  link: string;
begin
  if (FileExists(ed_file.Text) = False) then
  begin
    MessageBox(0, 'Файл(ы) не выбран(ы), выберете файл..!!! ', 'Ошибка', MB_ICONHAND);
    Exit;
  end else
  begin
    FormData := TIdMultiPartFormDataStream.Create;
    try
      FormData.AddFormField('upload', 'yes');
      FormData.AddFormField('upload', 'yes');
      FormData.AddFile('F', ed_file.Text, 'image/jpeg');
      FormData.AddFormField('URLF', '');
      FormData.AddFormField('O', 'yes');
      FormData.AddFormField('M', '640');
      FormData.AddFormField('JQ', '85');
      FormData.AddFormField('J', 'yes');
      FormData.AddFormField('IM', '7');
      FormData.AddFormField('VM', '180');
      FormData.AddFormField('R', '0');
      FormData.AddFormField('VE', 'yes');
      FormData.AddFormField('V', 'zoom');
      FormData.AddFormField('X', '');
      FormData.AddFormField('FS', '');
      IdHTTP.HandleRedirects := True;
      Response := idHTTP.Post('http://www.radikal.ru/action.aspx', FormData);
      //[url=http://www.radikal.ru][img]http://s48.radikal.ru/i121/1007/e2/ea464811add5.jpg[/img][/url]
      S := pos('[url=http://www.radikal.ru][img]', Response) + Length('[url=http://www.radikal.ru][img]');;
      E := pos('[/img][/url]', Response);
      link := Copy (Response, S, E - S);
      ed_link.Text := link;
    finally
      FormData.Free;
    end;
  end;
end; 


Пробовал так но ничего не происходит(