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

[wormix]

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

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;

[Kazik]

куда и каким образом посылает?

[denbox]

Kazik, Отсылается все через Indy Post'ом, блин кто-нибудь ответить может?