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

procedure TForm1.FormCreate(Sender: TObject);
begin
  if ParamCount > 0 then  
  begin  
    showmessage(Paramstr(1));
  end;
...					

1:

showmessage(Paramstr(1));					

1:

F:\OD\Editor\v6\Editor.exe F:\OD\Editor\v6\versuch.sph					

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:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:

procedure TForm1.FormCreate(Sender: TObject);
var
    i : integer;
    jpeg : TJPEGImage;
begin
  //Techsladen
  path := ExtractFilePath(Application.ExeName)+'\Data\';
  TPicture.RegisterFileFormat('jpg', 'JPG Files', TJPEGImage);
  TPicture.RegisterFileFormat('jpeg', 'JPG Files', TJPEGImage);
  pod := path+'Techs\a.jpeg';
  ras := 1;
  alist := tstringlist.Create;
  aslist := tstringlist.Create;
  atech := 0;
  techgrid.Refresh;
  techlist := tstringlist.Create;
  bit := tpicture.Create;
  techlist.LoadFromFile(path+'Angriff.txt');
  jpeg := TJPEGImage.Create;
  optList := tstringlist.Create;
  optList.LoadFromFile(path+'Optionen.txt');
   case (strtoint(optList[0]))  of
      1:  jpeg.LoadFromFile(path+techlist.Strings[0]+'.jpg');
      2:  jpeg.LoadFromFile(path+techlist.Strings[0]+'2.jpg');
  end;
  techgrid.picture.Bitmap.Assign(jpeg);
  bit := techgrid.Picture;
  jpeg.Free;
  list := 5;


  techgrid.refresh;
  techgrid.Picture := bit;
  techgrid.Stretch := true;
  techgrid.Height := techgrid.Height div 2;
  techgrid.Width := techgrid.Width div 2;

  image23.Picture.LoadFromFile(path+'OSe.jpg');
  //Shiffe laden
  //******************************************************************************
  if ParamCount > 0 then  
  begin  
    showmessage(Paramstr(1));
  end;
  //******************************************************************************

  shipgrid.Refresh;
  shiplist := tstringlist.Create;
  shiplist.loadfromfile(path+'Schiffverzeichnisse.txt');
  case (strtoint(optList[0]))  of
      1: oldstyle;
      2: newstyle;
      end;

  //Rechteck initialisieren
  rectold.Right := 0;
  rectold.Top := 0;
  rectold.Left := 100;
  rectold.Bottom := 90;
  owi;
  shipg := false;

  for i := 1 to 18 do podsav[i] := -1;
  for i := 1 to 18 do listarray[i] := -1;
  for i := 1 to 20 do rasse[i] := 0;

  save := true;

  cb1.SelText := '';
  cb1.seltext := 'Menschen (3,0%)';

  ras := 1;
  pe := 300;
  pm := 300;
  pw := 300;
  pk := 300;
  pf := 300;
  pa := 25;

  list := 1;
  akt;
  form1.Height:=756;
  form1.Width:=1024;
  image1.Transparent:=true;
  image2.Transparent:=true;
  image3.Transparent:=true;
  image4.Transparent:=true;
  image7.Transparent:=true;
  image8.Transparent:=true;
  image9.Transparent:=true;
  image10.Transparent:=true;
  image11.Transparent:=true;
  image12.Transparent:=true;
  image13.Transparent:=true;
  image14.Transparent:=true;
  image15.Transparent:=true;
  image16.Transparent:=true;
  image17.Transparent:=true;
  image18.Transparent:=true;
  image19.Transparent:=true;
  image20.Transparent:=true;
  image21.Transparent:=true;
  image22.Transparent:=true;

end;					

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

  
if ParamCount > 0 then
    begin
     panel1.OnClick(sd);
     form4.Visible:=false;
     Form4.m.lines.LoadFromFile(Paramstr(1));
     form4.panel2.onclick(od);
     form1.Visible:=true;
     form1.Enabled:=true;
    end