1:
2:
3:
4:
5:
6:
7:

try
   HTTPSend.Post(baseurl, Strings);
   response := HTTPSend.ResponseText;
except
   on E: Exception do
   showmessage('Fehler beim Übermitteln der Daten. Fehlermeldung: ' + E.Message);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

errorcont := 0;
success := false;

repeat

  try
    .....
    success := true;
  except
    .....
    inc(errorcount);
  end;

until success or (errorcount = 3);