procedure TForm1.FormCreate(Sender: TObject);
var
  ini: TextFile;
  s: String;
begin
  if ParamCount > 0 then
  begin
    ListFName := ExpandFileName(ParamStr(1));
  end
  else
  begin
    s := ExtractFilePath(Application.ExeName) + 'n.ini';
    AssignFile(ini, s);

    if FileExists(s) then
    begin
      Reset(ini);
      Readln(ini, ListFName);
    end
    else
      Rewrite(ini);

    CloseFile(ini);
  end;

  if ListFName <> '' then
    ListBox1.Items.LoadFromFile(ListFName);
end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  ini: TextFile;
begin
  AssignFile(ini, ExtractFilePath(Application.ExeName) + 'n.ini');
  Rewrite(ini);
  Writeln(ini, ListFName);
  CloseFile(ini);
end;