Twitter in Delphi benutzen

[Hedge]

Hier z.B. Code zum senden eines Tweets (Basic Authentification):

Delphi-Quellcode:

  try
      IdHTTPTwitter := TIdHTTP.Create;
      stURL := 'http://' + username + ':' + password   + '@twitter.com/statuses/update.xml?status=' + song;
      StringList := TStringList.Create;
      IdHTTPTwitter.Request.Username := username;
      IdHTTPTwitter.Request.Password := password;
      IdHTTPTwitter.Request.BasicAuthentication := True;
      IdHTTPTwitter.Post(stURL, StringList);

    except
      on E: exception do
        ShowMessage('Error : ' + e.Message);
  end;

Leider ist oAuth relativ kompliziert, so dass ich da kein Beispiel zu bringen kann.