PARA QUEM ENTENDE DE KADAO

Estou tentando conectar TKDaoDataBase com o comando abaixo.... e não estou conseguindo..... o problema esta no UserName eu preciso pegar o usuário que esta conectado no windows...... e não utilazar um nome qualquer exemplo ´Admin´...então utilizei a função LogUserWin.....

Alguém sabe como posso resolver este problema...... pq todos os usuários estão como ´Admin´....... OBRIGADO

=========================================

[b:cd63679bb3]DB.Connected:=False;
DB.Database:=´\\Martins\Dados\DBBase.mdb´;
DB.UserName:= LogUserWin;
DB.Connected:=True;[/b:cd63679bb3]

=========================================
function LogUserWin : String;
var
Registro: TRegistry;
begin
Registro := TRegistry.Create;
Registro.RootKey := HKEY_LOCAL_MACHINE;
if Registro.OpenKey(´Network\Logon´, false) then
begin
Result := Registro.ReadString(´username´);
end;
Registro.Free;
end;