[metra52]

Пишу всю функцию

procedure TForm1.btn7Click(Sender: TObject);
var jpg:TMemoryStream; HTTP:TIdHTTP; img:string;
logVK:WideString;
begin
PostVK:=TStringList.Create;
sig:=stroka1+'api_id='+idp+'format=XMLmethod=getUs erInfoExuids='+stroka1+'v=3.0'+stroka3; //подпись запроса + секрет сессии
sig:=md5(sig);
PostVK.Clear;
PostVK.Add('api_id='+idp);
PostVK.Add('v=3.0');
PostVK.Add('method=getUserInfoEx');
PostVK.Add('format=XML');
PostVK.Add('uids='+stroka1);
PostVK.Add('sid='+stroka2);
PostVK.Add('sig='+sig);
logVK:=IdHTTP1.Post('http://api.vk.com/api.php',PostVK);
PostVK.Free;

img:=Pars(logVK,'<user_photo','</user_photo>',0);
lbl8.Caption:=Pars(logVK,'<user_name','</user_name>',0);
jpg:=TMemoryStream.Create;
img1.Picture.Graphic:=TJPEGImage.Create;
jpg.Position:=0;
IdHTTP1.Get(img,jpg); //адрес jpg картинки
jpg.Position:=0;
img1.Picture.Graphic.LoadFromStream(jpg);
jpg.Free;

end;

вот идет присвоение lbl8.Caption:=Pars(logVK,'<user_name','</user_name>',0);