да тут одна кнопка вот так выглядит событие ) просто знакомлюсь с NetHTTPClient1 та как надоело на idhttp таскать библиотеки ssl (
procedure TForm1.Button3Click(Sender: TObject);
var
res,data:TStringList;
s,ip_h,lg_h:string;
begin
data:=TStringList.Create;
ip_h:= edit3.Text;
lg_h:= edit4.Text;
data.Add('email='+edit1.text);
data.Add('pass='+edit2.text);
NetHTTPClient1.HandleRedirects:=true;
NetHTTPClient1.Post('https://login.vk.com/?act=login&_origin=https://m.vk.com&ip_h='+ip_h+'&lg_h='+lg_h+'&role=pda&utf8=1',data).ContentAsString;
end;