1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

program XXX;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  ukategorie in 'ukategorie.pas' {Kategorie: TFrame},
  uInterbase in 'uInterbase.pas' {Interbase: TFrame},
  uParadox in 'uParadox.pas' {Paradox: TFrame},
  uUebergofy in 'uUebergofy.pas' {Uebergofy: TFrame},
  uHilfe in 'uHilfe.pas' {Hilfe: TFrame},
  uUpdate in 'uUpdate.pas' {Update: TFrame},
  uanfang in 'uanfang.pas' {Form2},
  sysutils,
  ubericht in 'ubericht.pas' {bericht: TFrame};

{$R *.res}

begin
  Application.Initialize;
  if paramcount=0 then
  begin
  Form2:=Tform2.Create(Application);
  Form2.Show;
  Form2.Update;
  sleep(3000);
  end;
    Application.CreateForm(TForm1, Form1);   <-- an dieser Stelle erscheint die Fehlermeldung
  if paramcount=0 then
  begin
    Form2.destroy;
    Application.Run;
  end;
end.					

1:
2:
3:
4:
5:

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  cmd:=true;
  directory:=getcurrentdir;
  update1.Visible:=true;
  Interbase1.Visible:=false;
  Paradox1.Visible:=false;
  Uebergofy1.Visible:=false;
  kategorie1.Visible:=false;
  hilfe2.Visible:=false;
  bericht1.Visible:=false;
  veraendert:=false;
  Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    server        := Ini.ReadString( 'Verbindung', 'server' ,
                                      'XXXXXXXXXX' );
    port          := Ini.ReadInteger( 'Verbindung', 'port', XXXX);
    verzeichnis   := Ini.ReadString( 'Verbindung', 'verzeichnis',
                                     XXXXXXXX);
    datenbank1    := Ini.ReadString( 'Verbindung', 'datenbank1','XXXXXXX');
    datenbank2    := Ini.readString( 'Verbindung', 'datenbank2','XXXXXXX');
    kategorie     := Ini.readString( 'Kategorie' , 'name' , 'Minitouren');
    alledaten     := Ini.ReadBool( 'KompletterDatenbestand' , 'alle' , false);
    if ini.readinteger('Neuinstallation','true',1)=1 then
       install();
    Ini.Free;
  except
    Ini.Free;
  end;
  update1.MaskEdit1.Text:=kategorie;
  if paramcount > 0 then
  begin
    cmd:=false;
    if uppercase(paramstr(1))='\ALLEKATEGORIEN' then
      kategorie:='Alle Kategorien';
    if uppercase(paramstr(1))='\MINITOUREN' then
      kategorie:='Minitouren';
    if uppercase(paramstr(1))='\FAHRZEUGE' then
      kategorie:='Fahrzeuge';
    if uppercase(paramstr(1))='\HOTELS' then
      kategorie:='Hotels';
    if uppercase(paramstr(1))='\SONSTIGES' then
      kategorie:='Sonstiges';
    if uppercase(paramstr(1))='\ZUGBUS' then
      kategorie:='ZugBus';
    if uppercase(paramstr(1))='\PAUSCHALREISEN' then
      kategorie:='Pauschalreisen';
    if uppercase(paramstr(1))='\FLUEGE' then
      kategorie:='Fluege';
    form1.Visible:=false;
    try
      update1.Button1.Click();
    except
    end;
     exit;
    end;
end;