Query.sql := 'Select * from mitabla where codigo = :ElCodigo'; Query.Params['ElCodigo'].Value := Edit1.Text; Query.Open;