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:

try
    FResult.Text := HTTP.Post(url, params);
    HTTP.Disconnect;
    FResponseCode := HTTP.ResponseCode;
  except
    on E: EIdHTTPProtocolException do
    begin
      FResponseCode := E.ErrorCode;
      FResult.Text := E.Message;
      //hier könnte man auch mit case einzelnen ErrorCodes (z.B. 404 explizit abfangen) - ich mache das in einer späteren Funktion
    end;
    on E: EIdSocketError do
    begin
      FResponseCode := E.LastError;
      case E.LastError of
        10060:
          begin
            FResult.Text := 'Der Server hat nicht in der vorgegebenen Zeitspanne geantwortet. Eventuell ist er überlastet oder es gibt Probleme mit deiner Internetverbindung.'+' Bitte überprüfe, ob du korrekt mit dem Internet verbunden bist und keine Firewall oder Router die Verbindung verhindert. Versuche es dann in ein paar Minuten erneut.';
          end;
        11004:
          begin
            FResult.Text := 'Der Server existiert zwar, ist jedoch nicht erreichbar, da die Namensauflösung fehlgeschlagen ist. Bitte überprüfe, ob du korrekt mit dem Internet verbunden bist und keine Firewall oder Router die Verbindung verhindert. Versuche es dann erneut.';
          end;
      else
        begin
          FResult.Text := Format('Beim Aufbau der Verbindung ist ein Fehler aufgetreten. Der genaue Fehlertext ist:'#13#10#13#10'%s',
            [E.Message]);
        end;
      end;
    end;
    on E: EIdexception do
    begin
      FResult.Text := Format('Beim Aufbau der Verbindung ist ein %s Fehler aufgetreten. Der genaue Fehlertext ist:'#13#10#13#10'%s',
        [E.ClassName, E.Message]);
    end;
  end;                    

1:

uses IdStack, IdException