блин пардон не туда создал =/ модеры перекиньте плз

помогите с альясом, никак не могу понять как его создать... т.к. его нет, он появляется после компилирования, и если в програме его создать - пишет ошибку, если сначала удалить и сделать заного, то ошибки нет, но эксник потом не запускается, наверно альяс удаляется из системы...
Код

List:=TStringList.Create;
Session1.GetAliasNames(List);
memo1.Lines.Assign(List);
  for i:=1 to memo1.Lines.Count do if pos('diary_base',memo1.Lines[i])<>0 then
  begin
    Session1.DeleteAlias('diary_base');
    Session1.AddStandardAlias('diary_base',GetCurrentDir,'Paradox');
  end
  else Session1.AddStandardAlias('diary_base',GetCurrentDir,'Paradox');

зы не смотрите на каменты rolleyes.gif