1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.Button1Click(Sender: TObject);
var
  slData: TStringList;
begin
slData := TStringList.Create;
try
  idhttp1.HandleRedirects := true;
  idhttp1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
  IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';

   sldata.add('PPSX=Passpor&PwdPad=IfYouAreReadingThisYouHaveTooM&type=');
   sldata.add('&login='+ edit1.Text); //email addy
   sldata.add('&passwd='+ edit2.Text);  //password
   sldata.add('&LoginOptions=3');
   sldata.add('&PPFT=session id');  //damit login klappt brauch man die id

   Memo1.lines.Add(IdHTTP1.post('https://login.live.com/ppsecure/post.srf?', slData));

finally
    slData.Free;
    IdHTTP1.Free;
end;
end;