& in einer XML-Datei

[Tigermoon]

danke für die hilfe,
lieder hilft mir das nciht weiter

wenn ich den shellexecute öffne fehlt immernoch alles nach dem & zeichen

Deutsch: Es wird nix angezeigt!

Kann mir jemand helfen?
Hat jemand ne Idee

Delphi-Quellcode:

if(FileExists(dateiname_laden))
    then begin

      // Datei wird gespeichert, das immer die aktuellsten Eingaben gespeichert sind
      datei_speichern('Mail');

      // Anlegen eines Objektes zum Auslesen
      XML_File := newXMLDocument;
      // Datei laden
      XML_File.LoadFromFile(dateiname_laden);

      montag := XML_File.ChildNodes['WOCHENBERICHT'].ChildNodes['EINTRAEGE'].ChildNodes['MONTAG'].ChildNodes['TEXT'].text;
      dienstag := XML_File.ChildNodes['WOCHENBERICHT'].ChildNodes['EINTRAEGE'].ChildNodes['DIENSTAG'].ChildNodes['TEXT'].Text;
      mittwoch := XML_File.ChildNodes['WOCHENBERICHT'].ChildNodes['EINTRAEGE'].ChildNodes['MITTWOCH'].ChildNodes['TEXT'].Text;
      donnerstag := XML_File.ChildNodes['WOCHENBERICHT'].ChildNodes['EINTRAEGE'].ChildNodes['DONNERSTAG'].ChildNodes['TEXT'].Text;
      freitag := XML_File.ChildNodes['WOCHENBERICHT'].ChildNodes['EINTRAEGE'].ChildNodes['FREITAG'].ChildNodes['TEXT'].Text;

      // soll angeblich das problem beheben tut es aber nicht!!!
StringReplace(montag, #$26 , '%26', [rfReplaceAll]);
      StringReplace(dienstag, #$26 , '%26', [rfReplaceAll]);
      StringReplace(mittwoch, #$26 , '%26', [rfReplaceAll]);
      StringReplace(donnerstag, #$26 , '%26', [rfReplaceAll]);
      StringReplace(freitag, #$26 , '%26', [rfReplaceAll]);


      // der Text der Email wird erzeugt und das Emailsendenfenster aufgerufen
      ShellExecute(Application.Handle, 'open', PChar('mailto:'+adressen_an+'?cc='+adressen_cc+'&subject=Wochenbericht ' +
             Hauptmenu.kalender_woche.Text + '/' + Hauptmenu.jahr_auswahl.Text + '&body=' +
             'Montag: '+ Hauptmenu.montag_stunden.Text +' Stunden'+'%0D%0A' + StringReplace(montag, #10 , '%0D%0A' ,[rfReplaceALL]) + '%0D%0A' + '%0D%0A' +
             'Dienstag: '+ Hauptmenu.dienstag_stunden.Text +' Stunden'+ '%0D%0A' + StringReplace(dienstag, #10 , '%0D%0A' ,[rfReplaceALL]) + '%0D%0A' + '%0D%0A' +
             'Mittwoch: '+ Hauptmenu.mittwoch_stunden.Text +' Stunden'+ '%0D%0A' + StringReplace(mittwoch, #10 , '%0D%0A' ,[rfReplaceALL]) + '%0D%0A' + '%0D%0A' +
             'Donnerstag: '+ Hauptmenu.donnerstag_stunden.Text +' Stunden'+ '%0D%0A' + StringReplace(donnerstag, #10 , '%0D%0A' ,[rfReplaceALL]) + '%0D%0A' + '%0D%0A' +
             'Freitag: '+ Hauptmenu.freitag_stunden.Text +' Stunden'+ '%0D%0A' + StringReplace(freitag, #10 , '%0D%0A' ,[rfReplaceALL]) + '%0D%0A' ), nil, nil, sw_ShowNormal);
    end;