Como pegar o diretório de uma alias?

Unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Db, DBTables ;

type
TForm1 = class(TForm)
Label1: TLabel;
BitBtn1: TBitBtn;
Edit1: TEdit;
Table1: TTable;
Label2: TLabel;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
WAlias : TStringList; //Capitura o Alias do Bde
WServidor : String; //Retorna o Caminho
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
{Para validar a Session e necessario ter um compomente table anexado ao projeto}
WAlias := TStringList.Create;
// Session.GetAliasParams('CrAdm',WAlias); //Coloque o Alias diretamente ou Troque pelo Edit
Session.GetAliasParams(Edit1.Text,WAlias);
WServidor := WAlias[0];
WServidor := Copy(WServidor,6,255);
WServidor := Copy(WServidor,1,(Length(WServidor)));
Label1.Caption := WServidor;
end;

end.