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:

procedure TForm1.Button1Click(Sender: TObject);
var slEintrag: tstringlist;
ausgabe: string;
begin
try
  slEintrag := TStringList.Create;
  with
  slEintrag do
  begin
    Values['username'] := '***';
    Values['password'] := '***';
    Values['ssl'] := 'on'; //mit off gehts auch nicht...
  end;
  try
    ausgabe := IdHTTP1.Post('http://mydrive.ch/de/files.php',slEintrag);
  except
  begin
  showmessage('Es kann keine Verbindung zum Server aufgebaut werden');
  exit;
  end;
 finally
 slEintrag.Free;
 end;
 showmessage(ausgabe);
end;