[TOJluK]

Код:

 var
  AParams: TStringList;
  MyAlias,Path: string;

begin
  MyAlias := '!ALIAS!';
  Path:='d:\';
  if not Session.IsAlias(MyAlias) then
   begin
      try
        Session.AddStandardAlias(MyAlias,PATH,'PARADOX');
        Session.SaveConfigFile;
      except
        showmessage('ЫЫЫЫЫ! Не пашет!');
        Exit;
      end;
    end;
    AParams := TStringList.Create;
    AParams.Add('PATH=' + PATH);
    Session.ModifyAlias(MyAlias,AParams);
    Session.SaveConfigFile;
    AParams.Free;