ParamStr(1) wird nicht mitgeschickt

[xZise]

Also das aufrufende Programm ist der Windows Explorer... Wird also mit Code schwer

Und das Programm das gestartet wird ist hier: (Ich schicke mal nur .Activate mit)

Delphi-Quellcode:

procedure TFMapEditor.FormActivate(Sender: TObject);
begin
  Wahl.Canvas.Brush.Color := clBtnFace;
  RechteWahl.Canvas.Pen.Style := psClear;
  RechteWahl.Canvas.Brush.Color := clBtnFace;

  Gespeichert := true;
  WahlImg[1] := 6;
  WahlImg[2] := 7;
  DoubleBuffered := true;
  WahlEbene[1] := 1;
  WahlEbene[2] := 1;

  Defini[0] := 'S'; // 1
  Defini[1] := 'L'; // 1
  Defini[2] := 'D'; // 1
  Defini[3] := 'K'; // 1
  Defini[4] := 'B'; // 1

  Defini[5] := 'G'; // 2
  Defini[6] := 'W'; // 2
  // NOCH UNDEFINIERT! \\
  Defini[7] := '0'; // ?
  Defini[8] := '0'; // ?
  Defini[9] := '0'; // ?

  Defini[10] := 'L'; // 2
  Defini[11] := 'M'; // 2
  Defini[12] := 'S'; // 2
  Defini[13] := 'F'; // 2
  // NOCH UNDEFINIERT! \\
  Defini[14] := '0'; // ?

  Defini[15] := 'I'; // 3
  Defini[16] := 'R'; // 3
  // NOCH UNDEFINIERT! \\
  Defini[17] := '0'; // 3
  Defini[18] := '0'; // 3
  Defini[19] := '0'; // ?

  Defini[20] := 'L'; // 4
  Defini[21] := 'W'; // 4
  Defini[22] := 'F'; // 4
  // NOCH UNDEFINIERT! \\
  Defini[20] := '0'; // 4
  Defini[20] := '0'; // 4

  Typ[1] := 'G';
  Typ[2] := 'W';
  BAImage12.Bitmap.Transparent := false;

  with TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'MapEditor-Settings.ini') do begin
    try
      TestDateiNummer := ReadInteger('Tests','Nummer',0);
    finally
      Free;
    end;
  end;

  // Laden?
  if ParamStr(1) <> '' then
    LoadFile(ParamStr(1));
end;

Und Ich habe es ausgeben lassen: ParamStr(1) = ''