[hugolom]

Да, все работает, но я решил переделать на radikal.ru,

Код:

  begin
    FormData := TIdMultiPartFormDataStream.Create;
    try
      FormData.AddFile('F', ed_file.Text, 'image/jpeg'); // я не понял откуда 'mage/jpeg в вас еще

      IdHTTP.HandleRedirects := True;
      Response := idHTTP.Post('http://www.radikal.ru/action.aspx', FormData);

      S := pos('[IMG]''', Response) + Length('[IMG]''');; 
      E := pos('''[/IMG]', Response);
      link := Copy (Response, S, E - S);
      ed_link.Text := link;

чувстую опять проблема с парсингом ?