AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
• Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Ini-Wert nicht als string einfügen

Ein Thema von Erutan · begonnen am 28. Feb 2014 · letzter Beitrag vom 2. Mär 2014
 
Vorheriger Beitrag Vorheriger Beitrag   Nächster Beitrag Nächster Beitrag
Erutan

Registriert seit: 16. Mär 2013
71 Beiträge
 
Delphi 7 Professional
 
#14

AW: Ini-Wert nicht als string einfügen

  Alt 2. Mär 2014, 00:58
Hier der komlette Sourcecode:

zusammenfalten · markieren
Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ini: TInifile;
  filename: String;
begin
filename := ExtractFilePath(ParamStr(0)) + 'einstellungen.ini';
ini := TIniFile.Create(filename);
try
    ini.ReadSections(ComboBoxPresseverteiler.Items); //Sektionen der Ini-Datei in die Combobox einlesen
finally
    ini.Free;
  end;

  Saved8087CW := Default8087CW;
  System.Set8087CW($133f);
end;

procedure TForm1.Beenden1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Presseverteilerhinzufgen1Click(Sender: TObject);
begin
    ShellExecute(Application.Handle,'open',PChar('dtful.exe'),nil,PChar(''),sw_ShowNormal);
end;


//----------------------------------------------------

function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  //no form on document
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    Exit;
  end;
  //count forms on document
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
  begin
    FormItem := WebBrowser.OleObject.Document.forms.Item(I);
    for j := 0 to FormItem.Length - 1 do
    begin
      try
        //when the fieldname is found, try to fill out
        if FormItem.Item(j).Name = FieldName then
        begin
          FormItem.Item(j).Value := Value;
          Result := True;
        end;
      except
        Exit;
      end;
    end;
  end;
end;

//----------------------------------------------------------------


procedure TForm1.ButtonAbsendenClick(Sender: TObject);
var
  ini: TInifile;
  filename: String;
begin
filename := ExtractFilePath(ParamStr(0)) + 'einstellungen.ini';
ini := TIniFile.Create(filename);

Webbrowser1.Navigate(Ini.ReadString(ComboBoxPresseverteiler.Text, 'URL', ''));

 ini.Free;

end;



procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
  var
  ini: TInifile;
  filename: String;

begin
filename := ExtractFilePath(ParamStr(0)) + 'einstellungen.ini';
ini := TIniFile.Create(filename);

  // WebBrowser1.OleObject.document.forms.item(0).elements.item(Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', '')).value := Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1W', '' );
  // f1w := Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1W', '');
  // WebBrowser1.OleObject.document.forms.item(0).elements.item(Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', '')).value := EditVorname.Text + ' ' + EditNachname.Text;

  if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'userN', ''), Ini.ReadString(ComboBoxPresseverteiler.Text, 'userW', '')) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
  if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'passN', ''), Ini.ReadString(ComboBoxPresseverteiler.Text, 'passW', '')) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');


    {Abfrage für F1W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F1W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F1N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F1W ENDE}

    {Abfrage für F2W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F2W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F2N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F2W ENDE}

     {Abfrage für F3W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F3W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F3N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F3W ENDE}


    {Abfrage für F4W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F4W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F4N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F4W ENDE}

    {Abfrage für F5W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F5W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F5N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F5W ENDE}

    {Abfrage für F6W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F6W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F6N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F6W ENDE}

    {Abfrage für F7W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F7W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F7N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F7W ENDE}

    {Abfrage für F8W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F8W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F8N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F8W ENDE}

    {Abfrage für F9W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F9W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F9N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F9W ENDE}

    {Abfrage für F10W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F10W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F10N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F10W ENDE}

    {Abfrage für F11W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F11W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F11N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F11W ENDE}

    {Abfrage für F12W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F12W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F12N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F12W ENDE}

    {Abfrage für F13W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F13W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F13N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F13W ENDE}

    {Abfrage für F14W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F14W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F14N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F14W ENDE}

    {Abfrage für F15W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F15W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F15N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F15W ENDE}

    {Abfrage für F16W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F16W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F16N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F16W ENDE}

    {Abfrage für F17W ANFANG}
   case Ini.ReadInteger (ComboBoxPresseverteiler.Text, 'F17W', 0) of

   1: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditVorname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   2: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   3: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditVorname.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   4: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditAgentur.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   5: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditFirma.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   6: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditTelefon.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   7: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditStrasse.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   8: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   9: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditStrasse.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   10: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditEmail.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   11: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditWebsite.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   12: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditPLZ.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   13: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   14: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditPLZ.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   15: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), MemoKontaktdaten.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   16: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), MemoFirmenportrait.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   17: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditTitel.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   18: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditUntertitel.Text + ' ' + EditHausNr.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   19: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), MemoTeaser.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   20: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), MemoHaupttext.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   21: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditKeyword1.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   22: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditKeyword2.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   23: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditKeyword3.Text + ' ' + EditOrt.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   24: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), EditKeyword4.Text + ' ' + EditNachname.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
   25: if FillForm(WebBrowser1, Ini.ReadString(ComboBoxPresseverteiler.Text, 'F17N', ''), MemoKeywordliste.Text) = False then ShowMessage('Fehler. Formular oder Formularfeld nicht gefunden');
    end ;
    {Abfrage für F17W ENDE}

//....Text zu lang für das Forum, daher gekürzt

  Ini.Free;
  end;

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
if ProgressMax = 0 then
  begin
    label1.Caption := '';
    Exit;
  end;
  try
    if (Progress <> -1) and (Progress <= ProgressMax) then
      label1.Caption := IntToStr((Progress * 100) div ProgressMax) + '% fertig...'
    else
      label1.Caption := '';
  except
    on EDivByZero do Exit;
  end;
end;


end.
Holger
  Mit Zitat antworten Zitat
 

« Vorheriges Thema | Nächstes Thema »

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus
Gehe zu:

• Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz