Загрузить аватарку Вконтакте Delphi

[denbox]

Всем привет! Проблема такая, пробую загрузить аватарку Вконтакте, но почему-то этого не происходит, фотография загружается, это видно по ответам от сервера, но когда я отправляю параметры на изменение фотографии она посылает меня.. короче помогите разобраться!

Procedure UploadPhoto;
var data:tstringlist;
data1:TIdMultiPartFormDataStream;
i,n:integer;
url_check:string;
begin
data1 := Tidmultipartformdatastream.Create;
   data:=tstringlist.create;
   data.Add('act=owner_photo_box');
   data.Add('al=1');
   data.Add('oid='+html);
url:=form1.IdHTTP1.Post('http://vk.com/al_page.php', data);
url_check:=url;
delete(url_check, 1, pos('check_url', url_check)+11);
delete(url_check, pos('"', url_check), length(url_check));
delete(url_check, 1, pos('cs',url_check)-1);
i:=posEx('\',url_check, 1);
delete(url_check, i, 1);
data1.AddFile('photo', '1.jpg', 'image/jpeg');
form1.idHTTP1.post('http://'+url_check, data1);
data1.Clear;
delete(url, 1, pos('OwnerPhoto.uploadInit({"url":"', url)+29);
delete(url, 1, pos('cs',url)-1);
url:='http://'+url;
i:=posEx('com',url, 1)+3;
delete(url, i, 1);
delete(url, pos('"',url), length(url));
data.Clear;
data1.AddFile('photo', '1.jpg', 'image/jpeg');
url:=form1.idHTTP1.post(url, data1);
data1.free;
form1.IdHTTP1.Request.ContentType:='';
data.clear;
data.add('_query='+URLDecode(url));
data.add('act=owner_photo_save');
data.add('al=1');
form1.idhttp1.post('http://vk.com/al_page.php', data);
end;

[Delphi_ProGer]

Авторизацию проходишь?

[denbox]

Сообщение от Delphi_ProGer

Авторизацию проходишь?

Ну конечно! .... С авторизацией все окей... Вот с загрузкой фотографии траблы!

[denbox]

Помогите плиз кто

[skyblue2202]

lГЄn cho cбєЈ nhГ* biбєїt nГ*o

Hб»™p giбєЈm tб»‘c Hб»™p giбєЈm tб»‘c

[denbox]

Сообщение от skyblue2202

lГЄn cho cбєЈ nhГ* biбєїt nГ*o

Hб»™p giбєЈm tб»‘c Hб»™p giбєЈm tб»‘c

ЧЕ за на такое?

[denbox]

Блин поможет кто?