Fórum Alias Temporario #205781

Colegas...

Estou criando um sistema para eventos, onde que para cada evento e cri
ado uma pasta num determinado diretorio onde crio as tabelas para aquele evento. ate ai tudo bem já consegui as function para criar os diretorios e as tabelas. Só que quando opto por um diretorio, tenho um
DATAMODULES onde fica todos os meus tables que sao ligados a um DATABASE. O que estou precisando e que quando opto por um determinado evento que e setado por uma tabela eventos com o1 campo nome criasse um alias virtual para aquele diretorio comforme o nome do table evento. consegui este exemplo aqui mas não consigo fazer funcionar:
function TFrmEntra.AliasCreate(AliasName, Programa,
DataType: String): Boolean;
begin
if not Session.IsAlias(AliasName) then
begin
{Verifica se já existe o alias na memória }
Session.AddStandardAlias(AliasName,ExtractFilePath(Programa),Datatype);
Result := True;
end
else
begin
Result := False;
end;
end;

aqui e onde tento passar um valor pra essa função, mas tá dando erro::
procedure TFrmEntra.Label1Click(Sender: TObject);
begin
AliasCreate(´D:\RPEventos\Dados\´+tbeventonome.asstring);
end;


se alguem tiver uma luz fico grato..

Jose Luiz