[anubis]

Gracias, ya lo hice mas o menos como comentabas, lo he conseguido con esto, usando mi propio ordenador pero borrando y dejando el alias en el database desktop como estaba, es decir apuntando a la ruta inicial.

Código Delphi [-]
procedure tfentrada.cambiaalias;

var
  AParams: TStringList;
  Dir: string;
begin
  if not Session.IsAlias('bases') then
    begin
      ShowMessage('Alias MyAlias does not exist');
      Exit;
    end;
  AParams := TStringList.Create;
  try
    // get the current PATH parameter
    //Session.GetAliasParams('bases',AParams);
    Dir := 'c:\archivos de programa\hotel plaza palacio\bases';
    // get the new PATH parameter
   // if InputQuery('bases Alias Path','c:\' ,Dir) then

      begin
        // Update the alias parameters
        AParams.Clear;
        AParams.Add('PATH=' + Dir);
        Session.ModifyAlias('bases',AParams);
        Session.SaveConfigFile;
      end;
    finally
      AParams.Free;
    end;
  end;

el problema es cuando lo llevo a otro ordenador, al ejecutar el programa me dice, problema al iniciar el motor borland de la base de datos.
y lo he puesto antes de iniciar o buscar cualquier base de datos en el programa.