Webbrowser1.Navigate(sURL);
WebBrowser1.OleObject.Document.Forms.item('frm').Elements.item('text').value := reEintrag.Text;
Element := WebBrowser1.OleObject.Document.forms.item(0).elements;

//Button "senden" suchen und anschließend clicken (text abschicken)
for i := 0 to (Element.Length - 1) do
begin

  if (Element.Item(i).Value = 'senden') then
  begin
   Element.Item(i).Click;
  end;

end; //for

var
sURL:String;
slEintrag:TStringList;
begin

slEintrag := TStringList.Create;

with slEintrag do
begin
  //"text" ist das Eingabeformular auf der Webseite wie oben bei TWebbrowser
  Add('text='+ reEintrag.Text);
end;

try
  btnSend.Font.Color := clRed;
  btnSend.Caption := 'wird gesendet...';
  btnSend.Update;

  IdHTTP1.Post(sURL,slEintrag);

  btnSend.Font.Color := clBlack;
  btnSend.Caption := 'Senden';
  btnSend.Update;

except
  MessageDlg('Senden fehlgeschlagen', mtError, [mbOK], 0);
  btnSend.Font.Color := clBlack;
  btnSend.Caption := 'Senden';
  btnSend.Update;
end; //try
slEintrag.Free;