Заливка картинки, проблема с форматом

[stalker1995s]

Здравствуйте, такая вот проблема, программа загружает картинку на Имеджхостинг Радикал, с загрузкой .png файлов нет проблем, но с другими форматами, сильно глючит, либо просто зависает. Код снизу.

Заметил, что если открывать программу, и заливать первую картинку, все выходит, но если снова попытаться, просто виснет. Подскажите что не так

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, IdMultipartFormData, XPMan;

type
TMainForm = class(TForm)
ed_file: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
OpenDlg: TOpenDialog;
IdHTTP: TIdHTTP;
Label1: TLabel;
XPManifest1: TXPManifest;
ed_link: TMemo;
Label3: TLabel;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure ed_linkClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin
if OpenDlg.Execute then
begin
ed_file.Text := OpenDlg.FileName;
end;
end;

procedure TMainForm.SpeedButton2Click(Sender: TObject);
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);
//
S := pos('[url=http://www.radikal.ru][img]', Response) + Length('[img]');;
E := pos('[/img]', Response);
link := Copy (Response, S, E - S);
ed_link.Text := link;
finally
FormData.Free;
end;
end;
end;

procedure TMainForm.ed_linkClick(Sender: TObject);
begin
ed_link.SelectAll;
end;

procedure TMainForm.FormActivate(Sender: TObject);
begin
MainForm.Caption := 'Заливка картинок на Имиджхостинг www.radikal.ru';
Application.Title := 'Заливка картинок на Имиджхостинг www.radikal.ru';
end;

end.

[stalker1995s]

Проблема найдена, и решена, во всяком случае на данный момент.
1. В строке FormData.AddFormField('JQ', '85'); // 85 это параметр, который если оставлять именно таким, а не вида img.Picture.BitMap.Widht или что то похожее, выдает ошибку. Так что ищите другие пути, что предстоит сделать мне.
2. Вылетала ошибка, связанная с тем, что стандартный image не может открыть файлы расширения '.gif'. Всем спасибо, в частности мне самому, тема закрыта