var
list: TStringList;
begin
   list := TStringList.Create;

//заполняем параметры
   list.Add('email=xxxx');
   list.Add('pass=xxx');
   //list.Add('expire=1');
   //list.Add('vk=');

   try
//пытаемся отправить методом POST на указанный URL
//и отобразить возвращенный текст
     memo1.lines.text := IdHTTP1.Post('http://login.vk.com/?act=login',list);
   finally
//освобождение
     list.Free;
     IdHTTP1.Disconnect;
   end;
end;