Собрать данные для post-запроса?

procedure TForm1.Button1Click(Sender: TObject);
var
  data: tstringlist;
  StrPage, UserID,  UserName  :  String;
  i : integer;
begin
 
  try
    Data := TStringList.Create;
    idHttp1.AllowCookies := true;
    idHttp1.CookieManager := IdCookieManager1;
    idHttp1.HandleRedirects := true;
 
    idHttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    idHttp1.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.3';
    idHttp1.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
    idHttp1.Request.Connection:='keep-alive';
    idHttp1.Request.ContentType:='application/x-www-form-urlencoded';
    idHttp1.Request.Host:='twitter.com';
    idHttp1.Request.Referer:='https://twitter.com/';
    idHttp1.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/535.7 (KHTML, like Gecko) Chrome/16.0.912.77 Safari/535.7';
 
    Data.Add('session[username_or_email]=Login');
    Data.Add('session[password]=Password');
    //Data.Add('scribe_log:'+(Сюда нужно дописать комбинацию цифр из ответа сервера));
 
    StrPage := idHttp1.post('https://twitter.com/sessions?phx=1', data);
    memo1.Text:=strpage;
 
  finally
 
  end;
 
end;