Problema con conexion

[Luigui59]

Que tal foro, una disculpa, creo que es algo muy simple, pero soy nuevo en programación con Delphi, y tengo un problema, estoy tratando de hacer una conexión para una consulta, pero me marca errores, si alguien pudiera ayudarme, se los agradeceria muchisimo:

Código Delphi [-]
  tobra := strtoint(subobra.Text);
  IF tobra > 0 THEN
    truta := ExtractFilePath(Application.ExeName) + 'DATOS\';
    Query1.Close;
    Query1.SQL.Text := 'SELECT * FROM "Z:\SISTEMAS\DELPHI\CONSERVACION\DATOS\obras.dbf" WHERE NO=:Obra';
    Query1.Params[0].DataType := ftinteger;
    Query1.ParamByName('Obra').Asinteger := tobra;
    Query1.Open;
    if Query1.IsEmpty then
      begin
       showmessage('OBRA NO ENCONTRADA')
      end
    else
      begin
       showmessage('OBRA ENCONTRADA')
      end