1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.FormCreate(Sender: TObject);
var
 newfile: String;
begin
  newfile :=ExtractFileDrive(Application.exeName);
  label2.Caption :=(newfile);
  if not FileExists(label2.Caption+'\eupec\Config\Mitarbeiter.csv') then
  begin
   ShowMessage('Installation wurde nicht korrekt ausgeführt oder Datei beschädigt')
  end;					

1:
2:
3:
4:
5:

else
beginn
 form1.Hide;
 form2.show;
end;					

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

procedure TForm1.FormCreate(Sender: TObject);  
var  
 newfile: String;  
begin  
  newfile :=ExtractFileDrive(Application.exeName);  
  label2.Caption :=(newfile);  
  if not FileExists(label2.Caption+'\eupec\Config\Mitarbeiter.csv') then  
  begin  
   ShowMessage('Installation wurde nicht korrekt ausgeführt oder Datei beschädigt')  
  end;
  else 
  beginn 
    form1.Hide; 
    form2.show; 
  end;					

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

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

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

begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2); // getauscht
  Application.CreateForm(TForm1, Form1); // getauscht
  Application.Run;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

program beispiel;

uses
  Forms,
  fe_login in 'fe_main.pas' {Main},
  fe_info in 'fe_login.pas' {Login},
  //..und noch weitere Units//
{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'Beispiel';
  Application.HelpFile := '';
  Application.CreateForm(TMain, Main);    <span style="font-style: italic">*1</span>
  Application.CreateForm(TLogin, Login);  <span style="font-style: italic">*2</span>
  //..und noch weitere Formulare
  Application.Run;
end.