Параметры запуска приложения

Reg.OpenKey('command\', true);
  s:='"'+Application.ExeName+'" "%1"';

Reg.OpenKey('command\', true);
  s:='"'+Application.ExeName+'" "%1" "%2"';

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to ParamCount do
  begin
    if LowerCase(ParamStr(i)) = 'beep' then
      Beep
    else if LowerCase(ParamStr(i)) = 'exit' then
      Application.Terminate;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
var i:integer;
begin
if ParamCount>=1 then begin
for i := 1 to ParamCount do
begin
f:=ParamStr(i);
addfiles(f);
playitem(pl2.ItemIndex);
end;
end;
end;

//...
var ad:boolean;
//...
f:='';
ad:=false;
for i := 1 to ParamCount do begin
  if ad then f:=f+#32+ParamStr(i) else f:=ParamStr(i);
  if not FileExists(f)then begin
    ad:=true;
    continue;
  end else ad:=false;
  addfiles(f);
  playitem(pl2.ItemIndex);
end;
//...

RestoreOldInstance: Cardinal;
  begin
  CreateMutex(nil, True, '{C68C1DD9-2CB0-4B2F-9A6A-29F4ADE5707D}');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
  SendString(findwindow('TForm1', nil), ParamStr(1));
  PostMessage(HWND_BROADCAST, RestoreOldInstance, 0, 0);
  Exit;
  end;

function TForm1.ApplicationMessage(var Message: TMessage): Boolean;
var
  hWnd, hCurWnd, dwThreadID, dwCurThreadID: THandle;
  OldTimeOut: Cardinal;
  AResult: Boolean;
begin
  Result := False;
  if Message.Msg = RestoreOldInstance then
  begin
    Application.Restore;
    hWnd := Application.Handle;
    SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, 0, @OldTimeOut, 0);
    SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, Pointer(0), 0);
    SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
    hCurWnd := GetForegroundWindow;
    AResult := False;
    while not AResult do
    begin
      dwThreadID := GetCurrentThreadId;
      dwCurThreadID := GetWindowThreadProcessId(hCurWnd);
      AttachThreadInput(dwThreadID, dwCurThreadID, True);
      AResult := SetForegroundWindow(hWnd);
      AttachThreadInput(dwThreadID, dwCurThreadID, False);
    end;
    SetWindowPos(hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
    SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, Pointer(OldTimeOut), 0);
  end;
  inherited;
end;
 
procedure TForm1.WMCopyData(var Msg: TWMCopyData);
var
  str_tmp: string;
begin
  if (Msg.CopyDataStruct^).lpData = nil then str_tmp:='';
  setLength(str_tmp, Msg.CopyDataStruct^.cbData);
  str_tmp:=pChar((Msg.CopyDataStruct^).lpData);
  addfiles(str_tmp);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
RestoreOldInstance:=RegisterWindowMessage('{FC9D27F6-D173-4CF6-8A9A-3A2197C72390}');  //Нужная нам строка
Application.HookMainWindow(ApplicationMessage);  //нужна нам строка
spectrum := Tspectrum.Create(pb1.Width, pb1.Height, 0, 200);
IniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Config.ini');
volume.position:=IniFile.ReadInteger('Volume','volume.position',50);
if Bass_Init(-1, 44100, 0, handle, nil) = false then
ShowMessage('не удалось инициализировать поток');
volume.Min:=0;
volume.Max:=100;
DragAcceptFiles(handle, true);
end;
 
function SendString(TargetWnd: THandle; const S: string): integer;
var
  CD: TCopyDataStruct;
begin
  CD.cbData:=length(S) + 1;
  if CD.cbData = 1 then
    CD.lpData := nil
  else
    CD.lpData:=pChar(s);
  result:=SendMessage(TargetWnd, WM_COPYDATA, 0, LParam(@CD))
end;

SendString(findwindow('TForm1', nil), ParamStr(1));

procedure TForm1.FormShow(Sender: TObject);
var ad:boolean;
begin
ad:=false;
for i := 1 to ParamCount do begin
  if ad then f:=f+#32+ParamStr(i) else f:=ParamStr(i);
  if not FileExists(f)then begin
    ad:=true;
    continue;
  end else ad:=false;
  addfiles(f);
  playitem(pl2.ItemIndex);
  label1.Caption:=inttostr(paramcount); //проверка, всегда показывает 1
end;
end;