1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

begin
// Objekte instanzieren
  MultiPartFormDataStream := TMsMultiPartFormDataStream.Create;

  try
      // Content-Type bestimmen
      httpMain.Request.ContentType := MultiPartFormDataStream.RequestContentType;

      // Formular-Felder setzen, die keine Dateien sein sollen
      if frmPickHostSettings.cbAccount.Checked = False then MultiPartFormDataStream.AddFormField('client_key', client_key);
      if frmPickHostSettings.cbAccount.Checked then
      begin
      MultiPartFormDataStream.AddFormField('client_key', client_key);
      MultiPartFormDataStream.AddFormField('user',  frmPickHostSettings.tfUser.Text);
      MultiPartFormDataStream.AddFormField('token', frmPickHostSettings.tfToken.Text);
      end;

      // Datei laden
      MultiPartFormDataStream.AddFile('file', pnPfad.Caption, '');

      // diese Methode muss _vor_ dem Senden augerufen werden
      MultiPartFormDataStream.PrepareStreamForDispatch;
      MultiPartFormDataStream.Position := 0;

      try
        // -->    
        // Anfrage abschicken
        Response := httpMain.Post('https://pickhost.eu/api/upload', MultiPartFormDataStream);
        // <--
      except
       frmPickHostFehler.Show;
       frmPickHostFehler.BringToFront;
       frmPickHostFehler.Label1.Caption :=  AusgabeString;
      end;
  finally
  MultiPartFormDataStream.Free;
  end;
end;					

1:

  httpMain.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(Self);					

1:
2:

uses
  IdSSLOpenSSL;