Verbindung zu Online-Shop

[freimatz]

Hallo zusammen,
den Text habe ich mehrfach gelesen. Entweder waren doch nicht alle Informationen darin oder ich bin zu blöd dazu.
Mithilfe vom Kunden (nicht der Shop-Entwickler) habe ich zumindest dann mit dem FireFox-Plugin "</> RESTED" eine Verbindung hinbekommen. Da habe ich dann:

Code:

URL    [https://blablub.de/bd-api/login]
Method [POST]
Headers
  [Content-Type] [application/x-www-form-urlencoded]
Basic auth: 
[demo] [demo]
Request body
    Type [URLencoded form data]
  [email]  [[e-mail]]
  [password] [yT5vB50gMjg]

Damit bekomme ich dann z.B.

Code:

{
  "sStatus": "ok",
  "sSession": "jinuup1bo5rtno2i83u8m0usj6"
}

Mit folgenden Delphi Code geht es nun:

Delphi-Quellcode:

var
  HTTP: TIdHTTP;
  lParamList: TStringList;
  LHandler: TIdSSLIOHandlerSocketOpenSSL;
  Result: string;
begin
  lParamList := TStringList.Create;
  HTTP := TIdHTTP.Create;
  LHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  try
    HTTP.IOHandler := LHandler;
    HTTP.AllowCookies := True;
    HTTP.Request.Username := 'demo';
    HTTP.Request.Password := 'demo';
    HTTP.Request.BasicAuthentication := true;
    lParamList.Add('email=[e-mail]');
    lParamList.Add('password=yT5vB50gMjg');

    Result := HTTP.Post('https://blablub.de/bd-api/login', lParamList);

    Memo2.Lines.Text := HTTP.Response.ResponseText;
    Memo1.Lines.Text := Result;
  finally
    LHandler.Free;
    HTTP.Free;
    lParamList.Free;
  end;
end;

Beim GET geht auch schon was. Zuvor mache ich mich aber ans Aufräumen vom Code.