Hola...
El problema está en como creas la sentencia
select en tu código. Te faltan las comillas simples:
Código Delphi
[-]
IBQCodigo.Close;
IBQCodigo.SQL.Clear;
IBQCodigo.SQL.Add('Select * from USUARIOS where DOCUMENTO = ''' + Edit1.Text + '''');
IBQCodigo.Open;
o también lo puedes hacer así:
Código Delphi
[-]
IBQCodigo.SQL.Add(Format('Select * from USUARIOS where DOCUMENTO = ''%s''', [Edit1.Text]));
Saludos...