Le agregue un campo a la tabla usuarios y quedo:
Código:
tabla usuarios
idUser | nombre | clave
y anda perfecto....
GRacias a Todos por su ayuda
Código Delphi
[-]
begin
inherited;
user:= trim(ds.DataSet.FieldByName('idUser').AsString);
if dsPermisos.DataSet.Locate('idUsuario',user,[loCaseInsensitive]) then
begin
activarCheck;
end;
end;