Delphi - solucionar error con el campo ad not found

este es mi codigo no se ke problemas tengo alguien me podria dar una solucion a mi problema gracias mi conexion es acces con un data source y un tquery y el tquery tiene sql select ad form usario=:usuario and contrasena=:contrasena

procedure TForm11.Button1Click(Sender: TObject);
var x:string;
begin
query1.ParamByName('nombre').AsString:=edit1.Text;
query1.ParamByName('constrasena').AsString:=edit2.Text;
x:=trim(query1.FieldByName('ad').asstring);
if (x='si') then //si es admin
begin
form3.Button2.Enabled:=true;
form3.Button1x.Enabled:=true;
form3.Button3.Enabled:=true;
end else showmessage('Los datos ingresados no son correctos, por favor verifiquelos');
end;

gracias quieor una solucion

A simple vista se encuentra el error, tu sentencia sql está mal, te falta especificar de que tabla vas a sacar los datos:

Select ad from TuTablaDeUsuarios Where usuario=:usuario
And contrasena =:contrasena

Esa sería la consulta correcta

ya le correji pero tmb me manda error asi kedaria select admin
form BUSUARIO
WHERE NOMBRE =:nom1 and CONTRASENA =:constrasena me marca error ahora nom no lo reconoce

Que error es el que te dá??, recuerda que NO es FORM sino FROM, a menos que sea aqui en tu mensaje donde esté mal nadamás

al parecer estas usando el BDE para comunicarte con una base de datos de access ¿porque no usas ADO de la paleta de componentes dbGo? Entonces usarias algo como esto:

ADOQuery1.SQL.Text := 'SELECT ADMIN FROM DUSUARIO WHERE NOMBRE = :nom AND CONTRASENA = :pas';
ADOQuery1.Parameters.ParamByName('nom').Value := Edit1.text; ADOQuery1.Parameters.ParamByName('pas').Value := Edit2.Text;
ADOQuery1.Open;
if Trim(ADOQuery1.FieldByName('ADMIN').AsString) = 'si' then
begin
/// aqui habilitas tus botones
end else
begin
// tu msg de error
end;

considera que "si" se puede guardar en mayusculas, asi que asegurate que tambien validadas esta parte. Igual te recomiendo que lo cambies por campo tipo BOOLEAN.