1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TFormOneDrive.btn1Click(Sender: TObject);
var
  lParams: TStringList;
begin
  try
    lParams := TStringList.Create();
    lParams.Add('login=' + edtname.Text);
    lParams.Add('passwd=' + edtkennwort.Text);
    lParams.Add('submit=Anmelden');
    IdHTTP1.Post('http://www.onedrive.live.com', lParams);
    IdHTTP1.Post('https://skydrive.live.com/?mkt=de-DE',lParams);
    Application.MessageBox('Sie wurden erfolgreich eingeloggt.', 'Login OneDrive', MB_ICONINFORMATION or MB_OK);
  except
    Application.MessageBox('Sie konnten nicht eingeloggt werden.', 'Login OneDrive', MB_ICONWARNING or MB_OK);
  end;
end;